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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


aaa TS A POP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF TSUOS MAGTAPE SUBS'TSTEM WHILE CONNECTED TO A PDP-117/25 SYSTEM 
CUNIBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
ELEVEN TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XxOP. ma APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION om RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL, THERE IS hy BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


POP-11 PROCESSOR AND MEMORY 
CAUTION: OIAGNOSTIC Buy wy S2Kk WORDS OF MEMORY 
(26K USEABLE I.E. 4K FOR I/0 PAGE) 
TSUOS MAGTAPE SUBSYSTEM (ORIVE AND CONTROLLER) 
CONSOLE TERMINAL 
POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP -11 OIAGNOSTIC LOADER/MONITOR (KxXDP.+) 


1.53 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS; 


1. CHQUS KXDP+ USERS GUIDE; DOCUMENT NUMBER AC -F 548E -MC 
DATE: 14 JULY 1980. 


2. TSUOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER Ex -TSU05-UG-001 
DATE: AUGUST 1965 


3. TSUOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK -TSUOS-TM-OO1 
DATE: AUGUST 1985 


4. TSUOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK -1TSU05 -IN-OO1 
DATE: AUGUST 1965 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL POP-11 CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 


FUNCTIONAL STANDPLONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL, DIAGNOSTIC LOADER/MONITOR (XXxDP- ) 


, 
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1.5 ASSUMPTIONS 


ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 
> wee. BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XxXDP+ USER'S MANUAL (CHOQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


\ COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INVE CONTINUE AT TEST THAT WAS poor (AFTER *C) 
PROCEED CONTINUE FROM AN ERROR HALT 

ExIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD . ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 


CONSIDERED TO BE ACTIVE AT START TIME 


OROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE OIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATI 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.35) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE — so 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START” 


2.1.1 OPERATOR COMMANDS 


THE TSUOS DIAGNOSTIC IS A PDP-11 OIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 


CHQUS XXDP+ USERS GUIDE.DOCUMENT NUMBER AC-FS546E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


.R VTSA?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CZTSA-A-O 

eeeeTSU0OS LOGIC DIAGNOSTICeece 

UNIT IS TSUOS 


SEQ 0046 


Fl 
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»OR 
2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS: a te 10. 
THIS LIST WILL CAUSE TESTS 1,5.7,8.9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS : 00000 EXECUTE DDDDD PASSES (DD00D = 1 TO 64000) 
/FLAGS:FLGS . tine FLAGS ane DESCRIBED - 


7EOP : 00000 REPORT END OF PASS MESSAGE AFTER EVERY 
DODOD PASSES ONLY. (ODDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS + 0-63) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1-S/PASS: 1000/E0P : 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 5) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES OMY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-S” INSTEAD OF “/TESTS:1-5”. 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR, ALL FLAGS ARE CLEARED AT S*ARTUP AND REMAIN 
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CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER*e INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST “ (FIRST LEVEL CONTAINS 
ERROR T NUMBER, PC, TEST AND UNIT) 

I*Ee INHIBIT YEXTENDED ERROR REPORTS ( THOSE 
CALLED BY PRINTX MACRO’S) 

PRI DIREC! MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

VAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTOOROP CODE 
LoT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 5.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 


AND TYPE A “BELL” ON ERROR, YOU MAY use THE FOLLOWING STRING: 
/FLAGS:LOE: IER: BOE 


2.4 WARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL Saat 
THE USER FOR HARDWARE INFORMATION By TYPING “CHANGE Hw (L) ?” 

YOU MUST ANSWER “Y” AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", is RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL) 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE OIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE Hw?” QUESTION TO ASK IF 


THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 


SEQ 006 


Hil 
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RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 
TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y” (YES) RESPONSE 10 THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEF AULT —s THAT WiLL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A “(D0)” IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED ad A RESPONSE. AN at a INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN “(LL)” INDICATES THAT A LOGICAL RESPONSE IS TO MADE : 
“y" FOR YES, “N” FOR NO. 


@ UNITS (0) 2? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADORESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSUOS CONTROLLERS PER PDP-11 AND UP TO 2 DRIVES PER CONTROLLER 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HAROWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED By “CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ SiART, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE Sw (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 
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WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD TH'S TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU a TESTING 

A DEVICE, THE Xv¥11. SUPPOSE THIS DEVICE CONSISTS 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED To IT. 

THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 

sy ONE HARDWARE PARAMETER THAT CAN VARY AMONG ¥ CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (0) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 2? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR>» 
SUB-DEVICE @ (0) ? 1<CR>» 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2«CR> 
Q-FACTOR (0) 0 ? «CR» 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 2? <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? «<CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 5S<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 
Q-FACTOR (0) 1 2? <CR> 


SEQ 008 


J1 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! ae" 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
ae THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (0) 2? 8<CR> 


Ti 
CSR ADDRESS (0) 
SUB-DEVICE @ (0 
Q-FACTOR (0) 0 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2-S5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q@-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM — FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY ’ 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


@ UNITS (D0) ? 8&<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0O-7<CR> 
Q-FACTOR (0) 0 ? 0,1,0....1,1<CR> 


AS YOU C/N SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 


? 160000<CR> 
» ? ©0,1<CR> 
? 1,0<CR> 
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A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST PEPLY. 
2.7 QUICK START-UP PROCEDURE (XXDP+) 
~ 

TO START-UP THIS PROGRAM: 

1. BOOT XxXDP+ 

2. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 
TYPE “START” 
. ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
ANSWER ALL THE HARDWARE QUESTIONS 
ANSWER THE “CHANGE SW” QUESTION WITH “N” 
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ON_Y THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 
3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM; 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXxx 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADORESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 


oy w 


PRINTED UNLESS THE “IER”, “IBR” OR “IXE” FLAGS ARE SET (SECTION 2.3). 


THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROFP MESSAGE REPRESENTS DIFFERENT TYPES 


SEQ 010 


Li 
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OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 

go> pe! REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CZTSA HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD 68: - DESIGNATOR <BIT @> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IWHER <8> IONL<S> IFBY<1> 
IRESV1<13> ICER <10> oe ILOP<4> IFPT<O> 


DATMIS<7> ILW<6> OUTRODY<S> INRDY<4> 

MESSAGE BUFFER ADDRESS = 047352 

MESSAGE BUFFER CONTENTS: 

WORD #0 EXPD: 100020 RECV: 100020 xXOR: 000000 
WORD #1 EXPD: 000012 RECV: 000012 xXOR: 000000 
WORD #2 EXPD: 000000 RECV: 000000 xXOR: 000000 
WORD #3 EXPD: 000010 RECV: 000010 xOR: 000000 
WORD : 000000 : 


wORD : : : 
WORD #9 EXPD: 000074 RECV: 000034 xXOR: 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE ORIVE,IN THIS 
oo 3 ieee ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
Y ve. 


CZTSA HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR = 100214 

TSSR BITS SET: SC,SSR 

TERMINATION CLASS CODE = UNRECOVERABLE ERROR 

PACKET ADDRESS = 026420 


PACKET WORD @ = 140010 
PACKET WORD @ = 000010 
PACKET WORD # = 000000 
PACKET WORD @ = 000024 


ERROR MESSAGE EXAMPLE 53 


M1 
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THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CVTS HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 0235306 
MOT BIT (XSTO) NOT SET DURING REWIND CEXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OF TEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (POP-11) 


DR>STA/FLA:PNT : HOE 

UNITS (0) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON 


TST: O01 INITIALIZE #1 

TST: O02 WRAP DATA HIGH BYTE TEST 

TST: 003 WRAP DATA LOW BYTE TEST 

TST: 004 RAM TEST 

TST: OOS INITIALIZE 2 TEST 

TST: 006 COMMAND REJECT TEST 

TST: O07 WRITE CHARACTREISTICS TEST 
TST: 008 VOLUME CHECK 

TST: 009 COMPLETION INTERRUPT TEST 
TST: 010 BASIC PACKET PROTOCOL TEST . 
TST: O11 NON-TAPE-MOTION COMMANDS TEST 


O ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOSLY UNLESS A PASS NUMBER LIMIT HAS BEEN 
SPECIFIED WITH THE “/PASS:” SWITCH, 


PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAC DONE ON A POP-11 
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PROCESSOR WITH A LA34 CONSOLE. 
THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE 


NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 


INHIBIT ITERATIONS QUESTION WITH A “Y” (YES). 


TEST N/I ITER DEF 
NUMBER SECS. SECS SECS. 

1 1 30 29 
2 1 10 4 
3 1 8 7 
4 es 120 9S 
be) be) 140 135 
6 25 475 450 
7 20 20 .?) 
8 1 10 9 
9 20 20 0 
10 1 2 1 
11 8 11 3 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 12 IN ONE COMMAND: 
Q.v. 1 MIN 57 SECONDS 
DEF AULT 12 MINS 
5.0 DEVICE INFORMATION TABLES 
WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES: 
CHANGE HW (L) ? 


® UNITS (0) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “# UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 


SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


SEQ 013 


Be 
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FOLLOWS: 
CHANGE SW (L) ? 


INMIBIT ITERATIONS (L) N ? 


6.0 TEST SUMMARIES 
TEST 1: BUS RESET TEST 


THIS TEST VERIFIES THAT THE M7455 MODULE’S DEVICE oe ARE 
ACCESSISLE ON THE BUS (SUBTEST 1) AND THEN CHECKS T 

BUILT-IN INITIALIZATION SELF -TEST MICRODIAGNOSTIC o10 "wor FIND 
ANY BASIC PROBLEMS } Fe THE MODULE. AREAS OF LOGIC TESTED BY THE 
SELF-TEST SEQUENCE ARE AS FOLLOWS: ROM AND PIPELINE as 
SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, R THIS 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA) 
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT ay 3 AND A16 AND 
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0). IF THE 
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE DISCREPANCIES. 
THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND 
REPORTS ONE OF THREE POSSIBILITIES: 


1. TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET, 
OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE 
APPARENT ERROR CODE IN BITS INDICATES THAT THE 
TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
ERROR (EXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
REPLACE THE M7455. IF THE M7455 ITSELF IS BEING 
DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 


2. SSR = 0, SC_= © AND THE ERROR CODE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 
INDICATES THAT A SERIOUS PROBLEM EXISTS. 
TEST 2: WRAP DATA - HIGH BYTE 
THIS TEST VERIFIES OPERATION OF; 


1. PART OF THE PDP-11 BUS INTERFACE SECTION OF THE M7455 ’ 
MODULE: PART OF THE INPUT FILE (TSDE HIGH BYTE), PART 
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OF THE OUTPUT FILE (TSSR HIGH BYTE AND TSBA 
BYTES), PART OF THE DCOOS TRANSCEIVER circuits. (ADDRESS 
DECODER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS 
DRIVERS}. AND BASIC PROGRAMMED I/O CONTROL SEQUENCES 

o 


2. PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER, 
REGISTER 0, ROTATE AND NEGATE FUNCTIONS 


Y AND SOURCE BUSES; 
4. BASIC MICROPROGRAM SEQUENCES. 


THE PROGRAM WRITES A TEST DATA uo INTO THE HIGH BYTE OF TSOB, 
WAITS FOR THE SSR A. IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND T°SR. THE MODULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
. TSSR IS CORRECT (SAME AS AFTER wy ow re EXCEPT FOR BITS 

8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN 
WRITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA % ‘SSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CAWIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 


WRAP DATA - LOW BYTE 


THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES: 


LOW BYTE OF THE TSOB INPUT FILE REGISTER, 


2. (LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOOS 
TRANSCEIVER CIRCUITS, 


3. BASIC FUNCTIONING OF PARTS OF THE RAM, 


THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSODB, 
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 


WRITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 


4; RAM TEST 


De 
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THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7455 
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.E., THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THE 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
pa 3 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 


TEST 5S: SECOND INITIALIZATION TEST 


THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST 
@1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 
AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO. 
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF-TEST SEQUENCE 
(I.E., THAT IT IS REALLY BEING EXECUTED). FOR EACH OF TWO 
SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR 
pb tn BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE 


1. EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET 
TO ALL 1°S BY USING WRITES INTO THE TSOB REGISTER (LOW 
BYTE AND MAINTENANCE MODE WORD WRITES). 


2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS — ON 
— IN INITIALIZATION TEST @1 ARE 


3. @1'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB, 
WHICH SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL 
1‘'S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM 
ADDRESS, SHOULD BE 0. RAM LOCATION O IS VERIFIED By 
WRITING A WORD OF ZEROS INTO THE TSOB. THE RESULTING 
LOW BYTE OF TSBA SHOULD CONTAIN ALL 1'S. 


4. THE ENTIRE RAM IS SCANNED. LOCATION O SHOULD CONTAIN 
ALL 1'S AND THE REMAINING LOCATIONS, EXCEPT FOR THE 
MESSAGE BUFFER IMAGE AREA, SHOULD CONTAIN O. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
MOST LIKELY OVE TO A ROM, PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM. 


TEST 6: COMMAND REJECT 


THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED OVE TO THE NEED BUFFER ADDRESS 
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR 
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC 
COMMAND DECODING AND DATI OMA HANOLING. THIS TEST CONTAINS TwO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 


E2 
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REJECTED COMMAND; SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. 


TEST 7; WRITE CHARACTERISTICS 


THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 
COMMAND. IT VERIFIES THAT THE COMM4ND BLOCK AND CHARACTERISTICS 
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 
ADDRESS (NBA) BIT IN TSSR IS HANOLED PROPERLY, AND THAT A PROPER 
MESSAGE PACKET IS STORED, WHERE APPROPRIATE. THIS TEST DOES NOT 
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 
DATA BITS OPERATE PROPERLY; THE FUNCTIONING OF THESE BITS IS 
VERIFIED IN SUBSEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO 
INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM RUNS AT 
PROCESSOR PRIORITY O, WITH THE sory SERVICE ROUTINE —_ uP 
TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, 

PROBLEM EXISTS IN EITHER THE POP-11 BUS INTERFACE SECTION OR IN 
THE ROM OR PIPELINE. 


TEST 8: VOLUME CHECK 


THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD 
WITHIN THE M7455 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 
CvC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMAND WITH THE CvC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF 
PREVENTING OR AL OWING A TAPE MOTION COMMAND DEPENDING UPON 
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 
TEST; THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 


TEST 9: COMPLETION INTERRUPT 


THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 


THE SEQUENCE 5 OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO CYPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1). IT 
IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 
GENERATED. FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE 
FIRST WITH IE=1 AND THE SECOND WITH IE=0. IT IS VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
I€ BIT IN xSTO IS O. 


TEST 10: BASIC PACKET PROTOCOL 


THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF THE ACK BIT IN THE CCMMAND HEADER WORD, 


Fo 
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AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 


TEST 11: NON-TAPE MOTION COMMANDS 


THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
THE COMMAND RUNS TO COMPLETION AND STORES A VALID 
MESSAGE PACKET. iME SECOND VERIFIES THAT NON ZERO 
VALVES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 


7.0 MAINTENANCE HISTORY 


REVISION A - MARCH 1962 
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24 002000 
002000 


002000' 


001217 
045444 ' 
045576' 
002154’ 
002164’ 
045672' 
000000 
000000 
000000 


TSVe:: 


ee 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


L $NAME 


LSREV:: 
LSDEPO:: 
LSUNIT::— 


LSTIML:: 
LSHPCP: : 
LSSPCP:: 
LSHPTP: : 
LSSPTP:: 


LSLADP::- 


LSSTA:: 
L$Co:: 


LSDTYP::— 
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. TITLE 


Ge 


TSv2 - tor HEADER 


PROGRAM HE 
ABS 


s INITIALIZE SUPERVISOR MACROS 


POINTER BGNSW,BGNSFT, 1 tes BGNDU , BGNRPT 
HEADER 


CZTSA.A,0,655. 


4C/ 
42/ 
4T/ 
/S/ 
sA/ 


655. 
L$HARD 
L$SOFT 
L $HW 
L$Sw 
L$LAST 
0 

i?) 

0 


POLAGNOSTIC NAME 


sREVISION LEVEL 

30 

sNUMBER OF UNITS 
sLONGEST TEST TIME 


sPOINTER TO H.W. QUES. 
sPOINTER TO S.W. QUES. 
sPTR, TO DEF. H.W. PTABLE 
sPTR, TO S.W. PTABLE 


s0IAG. END ADDRESS 


sRESERVED FOR APT STATS 


sDIAGNOSTIC TYPE 


SEQ 019 


He 


TSV2 - PROGRAM HEADER MACRO M1113 07-FEB-84 10:58 SEQ 020 
PROGRAM HEADER 

0020356 LSAPT:; sAPT EXPANSION 
002036 000000 -WORD O 
002040 LSOTP:: sPTR. TO DISPATCH TABLE 
002040 002124' -WORD LSDISPATCH 
002042 LSPRIO:: sOIAGNOSTIC RUN PRIORITY 
002042 000000 : . WORD 
002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 ‘ 0 
002046 LSEXP1:: sEXPANSION WORD 
002046 000000 -WORD O 
002050 LSMREV:: 3SVC REV AND EDIT @ 
002050 003 -BYTE CSREVISION 
002051 003 -BYTE CSEDIT 
002052 : LSEF:: ;DIAG. EVENT FLAGS 
002052 000000 «WORD O 
002054 000000 -WORD O 
002056 LS$SPC:: 
002056 000000 -WORD O 
002060 LSDEVP:: + POINTER TO DEVICE TYPE LIST 
002060 003400’ «WORD LS$OvVTYP 
002062 LSREPP: : sPTR. TO REPORT CODE 
002062 022434 : -WORD LSRPT 
002064 LSExP4;; 
002064 000000 -WORD 0 
002066 LSEXPS:: 
002066 000000 -WORD O 
002070 LSAUT:: 3PTR. TO ADD UNIT CODE 
002070 022122 -WORD LSAU 
002072 LSDUT:: ;PTR. TO OROP UNIT CODE 
002072 022220' -WORD LS$DU 
002074 L$LUN:: 3LUN FOR EXERCISERS TO FILL 
002074 000000 «WORD O 
002076 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
002076 003406’ «WORD LSDESC 
002100 L$LOAD: : sGENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 
002102 LSETP:: sPOINTER TO ERRTBL 
002102 000000 «WORD O 
002104 LSICP:: ;PTR. TO INIT CODE 
002104 021326’ -WORD LSINIT 
002106 LSCCP:: 3PTR. TO CLEAN-UP CODE 
002106 022406' -WORD LSCLEAN 
002110 LSACP:: ;PTR. TO AUTO CODE 
002110 022326' -WORD LSAUTO 
002112 LSPRT:: ;PTR, TO PROTECT TABLE 
002112 021316’ -WORD ” LSPROT 
002114 LSTEST:: ;TEST NUMBER 
002114 000000 «WORD O 
002116 LSOLY:: ;DELAY COUNT 
002116 000000 «WORD O 
002120 LSHIME:: ;PTR. TO HIGH MEM 

- 002120 000000 -WORD O . 

35 

36 

37 -SBTTL OISPATCH TABLE 


V2 - PROGRAM 


TS 
DISPATCH TABLE 


HEADER 


000013 


023216' 
023436’ 
024134' 
024626' 
026162’ 
027266' 
030544" 
034132' 
035036' 
040162° 
043274' 


000003 


172520 
000224 
000200 


000017 


Te 
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gee 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
go 


tee” 
LSDISPATCH: : 
«WORD T1 
«WORD Te 
«WORD T3 
-WORD 14 
-WORD TS 
-WORD T6 
-WORD 17 
-WORD T8 
-WORD T9 
«WORD 110 
-WORD Til 


-SBTTL DEFAULT HARDWARE P-TABLE 


zee 

s; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW OFPTBL sDEFAULT HARD-P-TABLE 
-WORD 110000-L$HW/2 


LSHW:: 

OFPTBL 
WORD 172520 : 1ST COF 2) REGISTERS. 
WORD 224 : INTERRUPT VECTOR 
. WORD PRIO4 3: INTERRUPT PRIORITY. 
ENOHW 

L10000: 


-SBTTL SOFTWARE P-TABLE 


gee 
; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
s PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


3° 
BGNSW SFPTBL 
-WORD 1L10001-L$SW/2 


L$SW:: 
SFPTBL:: 
TRANSTST:: .» WORD c9) ; ENABLE TEST OF TRANSPORT(S) IF 
NOITS:: .» WORD 1?) ; INHIBIT ITERATION OPTION. 

s ... O = ITERATE, 

3 ..-NZ = INHIBIT ITERATE. 
LERRMAX: : . WORD 1S. ; LOCAL (PEK TEST) ERROR LIMIT 


SEQ 021 
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SOFTWARE P-TABLE 

76 002172 000310 GERRMAX: : -WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 

77 002174 ENOSW 

- 002174 L10001: 

79 002174 ENDMOD 

80 

81 

84 


85 
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SOFTWARE P-TABLE 


20 002174 
002174 


33 002174 
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TSV3:: 


gee 
; THE GL 
; ARE US 
3° 


; 
; BIT OI 


: 
BIT15== 
BIT14== 
BIT13== 
BIT12== 


BIT1ii== 4 


BIT10== 
BITO9== 
BITO8== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITO3== 
BITO2== 
BITO1== 
BITOO== 


; 
BIT9== 
BITS== 
BIT7== 
BIT6== 
BITS== 
BIT4== 
BIT3== 
BIT2== 
BITi== 
BITO== 


3 
; EVEN 


Ke 


0:58 SEQ 023 


-TITLE TSV3 - GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


TSsv3 


-SBTTL GLOBAL EQUATES SECTION 


OBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ED IN MORE THAN ONE TEST. 


EQUALS ; GET STANDARD EQUATES. 
FINITIONS 


T FLAG DEFINITIONS 


;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


a 
EF .START 


EF .RESTART== 31. 


EF .CONTI 
EF .NEW== 
EF .PWR== 
: 
; 


os 32. : START COMMAND WAS ISSUED 
; RESTART COMMAND WAS ISSUED 
NUE== 30, ; CONTINUE COMMAND WAS ISSUED 
; A NEW PASS HAS BEEN STARTED 
; 


A POWER -FAIL/POWER-UP OCCURRED 


Le 
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+ PRIORITY LEVEL DEFINITIONS 


G 
000340 PRIO7== 340 
000300 PRIO6== 300 
000240 PRIOS== 240 
000200 PRIO4== 200 
000140 PRIO3== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
000000 PRIOO== 0 

pod ; 
A s;OPERATOR FLAG BITS 

U 
000004 EVL== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 I0U== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE== 100000 


34 
35 002174 :DEFINE MEMORY MANAGEMENT REGISTERS 


KT11 ae 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3*KT11 VECTOR ADDRESS 


000250 MMVEC= 250 
3#KT11 STATUS REGISTER ADDRESSES 
177572 SRO= 177572 
177574 SR1i= 177574 
177576 SR2= 177576 
172516 SR3= 172516 
IF NB 
3#USER “I” PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 


UIPOR1= 177602 
UIPDR2= 177604 
UIPOR3= 177606 
UIPOR4= 177610 
UIPORS= 177612 
UIPOR6= 177614 
UIPDR7= 177616 


s#USER “D” PAGE DESCRIPTOR REGISTORS 
’ UDPDRO= 177620 

UDPOR1= 177622 

UODPDR2= 177624 

UDPORS= 177626 

UDPDR4= 177630 

UDPORS= 177632 

UDPDR6= 177634 

UDPDR7= 177636 


MEMORY MANAGE 


- ENDC 


;*USER “I” PAGE ADDRESS REGISTERS 


UIPARO= 
UIPAR1= 


.IF NB 
3;#USER “D" PAGE ADDRESS REGISTERS 


UDPARO= 


SIPDRO= 
SIPOR1= 
SIPODR2= 
SIPOR3= 
SIPOR4= 
SIPORS= 
SIPDR6= 
SIPOR7= 
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177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 


177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 


. NB 
s#SUPERVISOR “I” 


172200 
172202 
172204 
172206 
172210 
172212 
172214 
172216 


IF NB 
one ites “0° 


DPDRO= 
SOPOR1= 
SOPDR2= 
SDPOR3= 
SDPOR4 = 
SDPORS= 
SOPDR6= 
SOPOR7= 


172220 
172222 
172224 
172226 
172230 
172232 
172234 
172236 


-ENDC 
3*SUPERVISOR “I” 


SIPARO= 


SDPARO= 
SDPAR1= 
SDPAR2= 


172240 


. NB 
s*#SUPERVISOR “D"” 


172260 
172262 
172264 


PAGE DESCRIPTOR REGISTERS 


PAGE DESCRIPTOR REGISTERS 


PAGE ADDRESS REGISTERS 


PAGE ADDRESS REGISTERS 
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172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


000004 


Ne 
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SDPAR3S= 172266 
SDPAR4= 172270 
SDPARS= 172272 
SDPAR6= 172274 
SDPAR7= 172276 


-ENOC 
;*KERNEL “I” PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 
KIPOR1= 172302 
KIPDR2= 172304 
KIPDOR3= 172306 
KIPDR4= 172310 
KIPORS= 172312 
KIPOR6= 172314 
KIPDR7= 172316 
.IF NB 
;*KERNEL “D” PAGE 
DESCRIPTOR REGISTERS 
KOPDRO= 172320 
KDPOR1= 172322 
KDPOR2= 172324 
KDPDR3= 172326 
KDPDR4= 172330 
KDPORS= 172332 
KDPDR6= 172334 
KOPOR7= 172336 
- ENOC 
;#KERNEL “I” PAGE ADDRESS REGISTERS 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPARS= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
.IF NB 
;*KERNEL “D” PAGE ADDRESS REGISTERS 
KDPARO= 172360 
KDPAR1= 172362 
KDPAR2= 172364 
KDPAR3= 172366 
KDPAR4= 172370 
KDPARS= 172372 
KDPAR6= 172374 
KDPAR7= 172376 
. ENOC 


-SBTTL TSYOS REGISTER AND PACKET DEFINITIONS 


; 
; SOME GENERAL EQUATES, 


SEQ 026 


ERRVEC== 4 ; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
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MACRO M1115 07-FEB-84 10:58 


TTIVECs= 
TTICSRe« 
TTIBFRe= 
BOVPCR== 


60 

177560 
177562 
177520 


B3 


+ INTERRUPT VECTOR FOR CONSOLE INPUT 
s BUS ADDRESS OF CONSOLE INPUT 
s CONSOLE INPUT DATA BUFFER 

s BOV11L PAGE CONTROL REGISTER 


| 
sBIT DEFINITIONS FOR TSSR REGISTER 


BIT10 
BITSIBITS 
BIT? 


BIT6 
FATERR= BIT4!BITS 
TERCLS* BITS!BIT2!:BIT1 


3° 


3(x 
3 
ge 


XSOTMKe 
XSORLS* 
XSOLET= 
XSORLL © 
XSOWLE = 
XSONEF © 
XSOILC= 
XSOILA= 
XSOMOT = 
XSOONL © 
XSOIE= 

xSOVCKe 
XSOPED= 
XSOWLK = 
XSOBOT = 
XSOEOT= 


3(x 


Xi.0LT 
x1. SPARE 


BIT1S 
tHe 


BIT1 


sSPECIAL CONDITION 

sBUS INTERFACE ERROR 
sSANITY CHECK ERROR 
sMODIFICATION REFUSED 
sNONEXISTANT MEMORY ERROR 
+NEED BUFFER ADDRESS 
sEXTENDED ADDRESS BITS 


NE BIT 
SFATAL TERMINATION ERROR CODES 
s TERMINATION CODES 


‘ 
sOIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


sTAPE MARK DETECTED 
sRECORD LENGTH SHORT 
sLOGICAL END OF TAPE 
sRECORD LENGTH LONG 
sWRITE LOCK ERROR 
sNON EXECUTABLE FUNCTION 
sILLEGAL COMMAND 
sILLEGAL ADORESS 
sTAPE IN MOTION 

s TRANSPORT ON LINE 

s INTERRUPT ENABLE 
sVOLUME CHECK BIT 
sPHASE ENCODED ORIVE 
sWRITE LOCKED 
sBEGINNING OF TAPE 
sEND OF TAPE 


s° 
ot oe FOR EXTENDED STATUS REGISTER 1 


sDATA LATE 
sNOT USED 
ECTABLE DATA ERROR 


sREAD BUS PARITY ERROR 
sUNCORRECTABLE DATA OR HARD ERROR 


SEQ 027 


BIT13 sCORR 
BIT12-BIT11+BI110-B1T9-B117 +B1T6.B115.BIT4-BITS-BIT2-B1T0 sALWAYS O 


* BITS 


C3 
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105 
106 2° 
107 :8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
108 s(XST2) 
109 :- 
110 100000 a ty, soem Oecr IN ns (TAPE MOVING) 
Lil 040000 x2.RCE «= BITL AM CHECKSUM E 
112 035400 K2. SPARE = Biris-erri2-erfi1.el9-eire maNot USED BY TSUOS (CALWAYS=*0) 
113 002000 x * BIT1O WRITE CLO FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
114 000200 X2.EXTF © BIT7 tIF WRITE CHAR CMD THEN © EXTENDED FEATURES ENABLED 
115 000100 x2.B8UFE = BIT6 3IF WRITE CHAR CMD THEN = BUFFERING ENABLED 
116 00007 x2.REV = 000077 sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
iM 000007 X2.UNIT «= BIT2-BIT1+BITO. sIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
119 3° 
120 s8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
4 3(xXST3) 
3- 
123 177400 X3.MDE = 177400 sMICRO- ty aye ——— CODE 
124 000200 X3.SPARE* BIT7 sNOT USED SY TSUO 
125 000100 . X3.0PI © BIT6 OPERATION INCOMPLETE 
126 000040 X3.REV = BITS sREVERSE 
127 000020 x3.TRF = BIT4 s TRANSPORT RESPONSE FAILURE 
128 000010 x3.0CK = BITS sDENSITY CHECK 
129 000006 X3.MBZ =BIT2-BIT1 sNOT USED ALWAYS O 
3° 000001 x3.RIB © BITO sREVERSE INTO BOT 
132 3° 
133 3BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
$74 3(XST4) 
t- 
136 100000 xX4.HSP = BIT1S sHIGH SPEED 
137 040000 x4.RCE «© BITI4 sRETRY COUNT EXCEEDED 
138 20000 x4,TSM = BIT13 s TRANSPORT SPECIAL MODE 
139 017400 x4.MBZ = BIT12-B1T11-B1T10-8119-B1T8 sNOT USED ALWAYS O 
000377 X4.WRC = 000377 s;WRITE RETRY COUNT FIELD 
142 
143 3° 
144 3 
— s;TSSR TERMINATION CODES (BIT 0-2) 
147 - 
148 
149 000006 TSREU= 302 sCOMMAND REJECTED 
fae 000006 UNREC= 6 sUNRECOVERABLE ERROR 
152 3° 
153 ; 
ta sDEVICE REGISTER OFFSETS 
i 
156 :- 
157 
158 000000 TSBA== 0 
159 000000 TSOB-= 0 3TSOB/TSBA REGISTER 
160 000001 TSBAH== 1 
161 000001 TSOBH== 1 3 1TSO0B.TSBA REGISTER HIGH BYTE 
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162 000002 TSSR*= 2 sTSSR REGISTER 
163 000003 TSSRH«= 3 sTSSR REGISTER HIGH BYTE 
164 
165 3° 
166 ; TSDB ADDRESS BIT DEFINITIONS 
167 3- 
168 000003 A1716 = = BIT1+BITO sADORESS BITS 17:16 ARE IN 1:0 
6 
170 3° 
171 3 COMMAND DEFINITIONS 
1°2 . 
173 000017 P.GETSTAT * 17 ;GET STATUS 
174 000013 P.INIT * 13 s INITIALIZE 
175 000012 P. CONTROL * 12 sCONTROL COMMANDS 
176 000011 P FORMAT * 11 sFORMAT 
177 000010 P POSITION = 10 sPOSITION 
178 000006 “WRTSUB "6 ;SUBSYSTEM WRITE 
17 000005 P WRITE * 5 sWRITE 
180 000004 P .WRTCHAR - 4 iWRITE CHARACTERISTICS 
181 000001 P READ = 1 ;READ 
183 ad 
184 ; COMMAND PACKET HEADER WORD BIT DEFINITIONS 
1 :- 
186 100000 P.ACK «= BITIS ;BUFFER AVAIL FOR CONTROLLER 
187 040000 P.CvC © BITI4 sCLEAR VOLUME CHECK 
188 020000 P.OPP «= BIT13 REVERSE SEQUENCE OF DATA BITS 
189 010000 P.SWwB = BITI2 AP BYTES IN MEMORY 
190 007400 P.MODE = BIT1i!BIT10L61o18rT8 sEXTENDED COMMAND MODE FIELD 
191 000200 PIE * BIT? s INTERRUPT ENABLE 
192 000140 P.FMT= BIT6!BITS sPACKET HEADER TYPE (ALWAYS=0) 
98 000037 P.CMD = 37 sMAJOR COMMAND FIELD 
3¢ 
4 ; CONTROL COMMAND MODE CODES 
197 000000 . PC RELEASE = 00256. RELEASE BUFFER 
198 000400 PC .REWIND = 16256. ;REWINO 
199 001000 PC .NOOP = 20256. sNO-OP 
200 002000 PC. IEREW = 40256. sREWIND IMMEDIATE INTERRUPT 
201 002400 PC .ERASE » 50256. ;SECURITY ERASE 
203 se 
os 3; CONTROLLER RAM DEFINITIONS 
206 000167 RMCHBEG = 167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
207 000200 RMCHEND = 200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
208 000201 RMPKTBEG= 201 s COMMAND PACKET BEGIN RAM ADDRESS 
209 000210 RMPKTEND= 210 OMMAND PACKET END RAM ADDRESS 
210 000215 RMMSGBEG= 215 i MESSAGE BUFFER BEGIN RAM ADDRESS 
211 000234 RMMSGEND= 234 sMESSAGE BUFFER END RAM ADDRESS 
3? 
213 
214 ;REGISTER DEFINITLONS IN THE MESSAGE BUFFER 
ote 
3 - 
217 
218 000006 XSTO=#= 6 sEXTENDED STATUS REGISTER O (WORD 4) 


co 
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219 000010 xSTis= 8. sEXTENDED STATUS REGISTER 1 (WORD 5) 
220 000012 xST2== 10. sEXTENDED STATUS REGISTER 2 (WORD 6) 
eel 000014 xST3== i2. sEXTENDED STATUS REGISTER 3 (WORD 7) 
os 000016 xST4*= 14, sEXTENDED STATUS REGISTER 4 (WORD 8) 
224 
225 3° 
226 3 
= $4 ;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
: 
330 e 
231 000002 PKLOW = 2 :LOW ORDER CHARACTERISTIC DATA POINTER 
232 000004 PKHI = 4 sHIGH ORDER CHARACTERISTIC DATA POINTER 
4 000006 PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
2 
eo. 000010 EXBCNT*=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 
237 3° 
$39 ;DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
‘= 
240 000000 BSELO = 0 ;BYTE O 
241 000001 BSEL1 = 1 sBYTE 1 
242 000002 SEL2 = 2 sWORD 2 
243 000004 SELDATA = 4 sWORD 3 
244 
245 3° 
=F ;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
ge 
248 000000 Pw.NOP = 0 3NO-OP 
249 000001 PW.RDRAM = 1 sREAD RAM 
250 000002 PwW.WTRAM = 2 ;WRITE RAM 
251 000003 Pw. RFIFO = 3 sREAD FIFO 
252 000004 PW.WFIFO 2» 4 sWRITE FIFO 
253 000005 PW.ROSTAT » 5 sREAD STATUS 
254 000006 Pw. WCTL = 6 sWRITE TAPE CONTROL 
255 000007 PwW.WFMT = 7 sWRITE TAPE FORMAT 
000010 PW. WMISC =» 10 sWRITE MISCELLANEOUS 
257 000011 PW .WNPR = 11 sWRITE NPR CONTROL 
258 000020 Pw .D22 = 20 300 MICROTEST 22 
259 000021 Pw.D1i1 = 21 300 MICROTEST 11 
260 000022 Pw.013 = 22 300 MICROTEST 13 
261 000023 PW.NO1311 = 23 sOISABLE MICROTEST 11 AND 13 
93 000024 Pw.RDEXT = 24 sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
264 se 
or ’ ;BSEL1 CODES FOR WRITE TAPE CONTROL 
“ee 
267 000200 WC .IFAD = BIT7 ;IFAD - FORMATTER ADDRESS 
268 000100 WC. IOTAD = BIT6 sITADO - TRANSPORT ADDRESS BIT O 
269 000040 wC.I1LTAD = BITS sITADL - TRANSPORT ADORESS BIT 1 
270 000020 WC. ISRESV = BIT4 sIRESVS - RESERVED 05 
271 000010 WC. IREW = BITS 3; IREW - REWIND 
272 000004 WC. IRWU = BIT2 ,IRWU - REWIND AND UNLOAD 
273 000002 WC.IFEN = BIT1 sIFEN - FORMATTER ENABLE 
274 000001 wC.IGO = BITO 3GO 


F3 


WORD #8 BYTE O ISPEED H 
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276 7° 
oie ;68SEL1 CODES FOR WRITE FORMAT 
2 3 — 
279 000200 WF, IHISP * BIT7 sIHISP - HIGH SPEED 
280 000100 WF. IWRT = BIT6 sIWRT - WRITE 
281 000040 WF. IREV * BITS s IREV - REVERSE 
282 000020 WF. IWFM = BIT4 sIWFM - WRITE FILE MARK 
283 000010 WF .IEDIT = BITS sIEDIT - EDIT 
284 000004 WF , IERASE = BITe2 sIERASE - ERASE 
285 000002 WF .ISRESV = BIT1 ;IRESV3 - RESERVED 03 
= 000001 WF. I4RESV = BITO ;IRESV4 - RESERVED 04 
288 
289 3° 
ey :BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
g¢ 
292 000200 MS .EXT = BIT7 s INVERT SENSE OF EXTENDED FEATURES SWITCH 
293 000020 MS.RSFIFO = BIT4 sRESET FIFO AND INPUT PARITY ERRORR 
294 000010 MS .RSTAPE = BITS sRESET TAPE STATUS IN 2 FLIP-FLOPS 
295 000006 MS.ATTN « BIT2!:BIT1 sATTENTION TRIGGER FIELD 
ded 000001 MS.RSD =» BITO sRESET TIMER A,B THEN DELAY TIMES IN SEL2 
3¢ 
de ; MS.ATTN SUBCODES 
3: 
300 000000 MSA.NOP = O#2 sNO-OP CNOTHING TRIGGERED) 
301 000002 MSA.VOL = 142 sSIMULATE ON-LINE/OFF-LINE TRANSISTION 
302 000004 MSA.NRAM= 202 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
aos 000006 MSA.FRAM= 3a2 sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
3¢ 
344 ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
g* 
307 000200 NP .IR = BIT7 s INTERRUPT REQUEST (0-1 TRANSITION) 
308 000100 NP .OUT * BIT6 sTAPE DATA DIRECTION OUT (0O= IN) 
309 000040 NP .LOOP = BITS sENABLE TRANSPORT LOOPBACK 
he 000020 NP . WRP = BIT4 sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
3° 
+44 ; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
3 = 
314 
315 000200 S2.D0IM = BIT7 sWORD 09 BYTE 2 age IN MISS 
316 000100 S2.ILW = BIT6 3 ILwW 
317 000040 S2.OUTRDY = BITS 3 our RDY Wl 
318 000020 S2. INRDY = BIT4 3 IN ROY H 
319 000010 S2.ATIMR = BITS 3 TIMER A FLAG H 
320 000004 S2.BTIMR » BIT2 F TIMER B FLAG H 
321 000003 S2.UNDEF = BIT1+BITO 1 CUNDEF INED ) 
322 100000 S1.PARIN = BIT15 ;WORD 08 BYTE 1 PARIN H 
323 040000 $1. I2RESV = BIT14 3 IRESV2 
324 020000 $1.I1RESV = BIT13 3 TRESV1 
325 010000 $1.I€OT = BIT1e2 3 IEOT L 
326 004000 $1. IIDENT * BIT11 3 IIDENT H 
727 002000 $1.ICER = BIT1O 3 ICER H 
328 001000 $1. IF MK » BITS ; IFMK H 
s 3 
° 3 
s 3 
. : 
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000020 SO. ILDP * BIT4 : ILOP L 
000010 50. IOBY * BIT3 ' IOBY L 
000004 SO. IRWOD = BIT2 , IRWO L 
000002 SO. IFBY * BIT1 , IFBY L 
000001 S0.IFPT * BITO ; IFPT L 
7° 
;UNIBUS MAP DEF INATIONS 
ge 
170200 MMRO= 170200 
.SBTTL SPECIAL MACROS AND OPDEFS. 
se 
;SAVE GENERAL REGS 1 TO 5S 
g°¢ 
.MACRO SAVREG 
JSR RS, REGSAV 
-ENOM 
3¢ 
MACRO TO FORCE AN ERROR 
“MACRO FORCERROR TAG,NOTSSR 
TIF NOF LISTALL, .NLIST 
TF B NOTSSR 
as MOV TSSR(RS),R1 ;READ TSSR 
: MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG 3BR IF YES 


-NLIST 

- TIF NOF LISTALL 
-LIST 

-ENOM 


. -LIST 


G3 


; “MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
i WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

i SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
3 
; 


FORCER TO 177777 
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 


ge 

-MACRO FORCEXIT 
-NLIST 

- TIF NOF LISTALL 
-LIST 


MOV 
BMI 
-NLIST 


“4 NOF LISTALL, .LIST 


.ENDM 
3¢ 


TAG 
» »NLIST 
FORCER,FORCER 
TAG 


sIS a NEGATIVE? 


3BR IF YE 


SEQ 032 


002174 


000000 


H3 
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: _MACRO TO INCREMENT ERROR COUNTS 


“MACRO NEXT .ERRNO 
s33.IIF NOF LISTALL, .NLIST 
ERRNO=ERRNO-+ 


a. 
s33.IIF NOF LISTALL, .LIST 
LIST 
-ENOM 


3;*¢ 
sMACRO TO PERFORM XOR 
Hy - 


EN=0 s INITIALIZE ERROR NUMBER 
-SBTTL FORCER - FORCE ERROR FLAG 


THE FOLLOWING LOCATIONS MAY BE PATCHED By THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


FORCER: : FORCE TYPE ALL HARD ERRORS (THE ONES CALLED : 
- BY THE MACRO “IFERROR”). AN ERROR NEED NOT 


s - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


-~o 


-SBTTL GLOBAL DATA SECTION 


THE GLOBAL DATA ig CONTAINS DATA THAT ARE USED 
3IN MORE THAN ONE TEST 
gc? 


i 
;THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


i 
EPRTSW:: -WORD O sPRINT SWITCH 
UNITN: : -WORD O sUNIT @ UNDER TEST. 
QvP:: -WORD O sQUICK VERIFY FLAG. 
CSRADODR: : -WORD O sADDRESS OF CSR FOR CURRENT DEVICE 
IVEC:: -WORD 224 s INTERRUPT VECTOR 
IPRI:: -WORD PRIO4 s INTERRUPT PRIORITY. 
TSTCNT:: -WORD O sNUMBER OF TESTS RUN IN THIS PASS 
LOOPCNT: : -WORD O sREMAINING ITERATION COUNT FOR TEST 
EVENT ss -WORD O sNUMBER OF DEVICE UNDER TEST 
LG:: -WORD O sSET IF FATAL ERROR IS DETECTED IN TEST 
CVs: -WORD O sSET IF TAPE INTERRUPT WAS RECEIVED 


SEQ 033 
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177776 
177775 


EXTFEA:: 


3*¢ 
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-SBTTL TSTBLK 


13 


BaqCooooooos, Cooeee 


338 


SEQ 034 


sEXTENDED FEATURES SOFTWARE SW O=OFF;1=ON 


sBUFFER ENABLE SWITCH SW O*OFF;1=0N 
sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 


sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 


sRAM DATA SIZE FOR PRAMPKT ROUTINE 
sRECEIVED BUFFER HIGH ADDRESS 
sRECEIVED BUFFER LOW ADDRESS 
sTEST COUNT PATTERN 

sTEST DATA 

sTEST FLAG WORD 

sTSTBLK POINTER 

sPRINT ROUTINE TEMP 

sEXPECTED MESSAGE BUFFER DATA 
sRECEIVED MESSAGE BUFFER DATA 
s TEMPORARY STORAGE FOR PRINT 


- TEST DATA TABLE 


3 

;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
; 

:IN SEQUENCE THE DATA IS: 


TSTBLK:; 


ALL ZEROS 
ALL CNES 


WALKING ONES 
WALKING ZEROS 


ALTERNATING ONES AND ZEROS 


BITO 
-WORD BIT1 
-WORD BIT2 
WORD BITS 
WORD BIT4 

BITS 
WORD BIT6 
WORD BIT? 
WORD BITS 
WORD BITS 
WORD BIT10 
WORD BIT11 
WORD BIT12 
WORD BIT13 
WORD BIT14 
WORD BIT15 


‘WORD = tCBIT1 


sALL ZEROS 
sALL ONES 
sDATA FOR WALKING ONES 


;DATA FOR WALKING ZEROS 
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TSTBLK 


- TEST 


JS 
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DATA TABLE 
177773 . WORD tCBITe 
177767 . WORD tCBITS 
177757 . WORD tCBIT4 
177737 . WORD tCBITS 
177677 » WORD tCBITé 
177577 .WORD tCBIT7 
177377 . WORD tCBITS 
176777 .» WORD tCBITS 
175777 . WORD tCBIT10 
173777 . WORD tCBIT11 
167777 . WORD tCBIT12 
157777 . WORD tCBIT13 
137777 . WORD tCBIT14 
077777 . WORD tCBIT15 
125252 . WORD 125252 sALTERNATING ONES, ZEROS 
052525 . WORD 052525 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 
003060’ TBLEND==-, 
.SBTTL GLOBAL ENVIRONMENT STORAGE 
; 
sSTORAGE FOR DEVICE REGISTERS 
; 
000000 100000 000000 DUMMY: 0,100000,0,0 sDUMMY DEVICE REGISTERS... 
000000 000000 000000 0,0,0,0,0,0,0,0 
000000 OUFLG:: . WORD 0 : "DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 
000000 NODEV: : WORD 0 sFLAG TO SAY NO DEVICE. 
000000 TEMP1:: WORD 0 :;SOME TEMP LOCATIONS. 
000000 TEMPe:: . WORD 0 
000000 XXCOMM: : . WORD .¢] 3XXDP+ COMM BLOCK POINTER. 
000000 FREE:: . WORD 0 eed FREE MEMORY ADDRESS... 
000000 FRESIZ:: . WORD 0 .-AND SIZE CIN WORDS). 
000000 FREEHI: .WORD 0 ;LAST WORD IN FREE SPACE 
000000 KTFLG:: .» WORD 0 sKT11, MEM AVAIL FLAG - 
3- .WORD O = <24K OR'NO KT - 
3- NZ = >24K AND KT. 
000000 KTENABLE: : . WORD 0 sSET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
000000 NXMFLG: : . WORD 10) ;SET IF WE CAN TEST CLEARED OTHERWISE 
000000 NXMLO: . WORD 0 3NXM LO ADDRESS BITS 
000000 NXMHI : . WORD 0 3;NXM HI ADDRESS BITS FOR DAL’'S 16-21 
000000 T23A:: . WORD 0 sPROCESSOR TYPE FLAG 
000000 T23B:: .» WORD i?) sPROCESSOR TYPE FLAG B 
000000 T3BFLG:: » WORD 0 ;TEST 38 FLAG tO 
002000 PST32QW .» WORD 2000 332W BLOCK ADDRESS FOR 32K START 
000000 SIFLAG WORD 0 H 
000000 BADDAT:: . WORD 0 sACTUAL DATA 
000000 GODAT: .» WORD 1?) sEXPECTED DATA 
000000 LOOPFL » WORD 0 2 
CTAB:: nt oe gre TABLES. 
CTABM: . WORD 0 ;CONFIG WORK 
000000 WORD 0 ~ 
000000 . WORD i?) 


3 
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GLOBAL ENVIRONMENT STORAGE 
561 003170 000000 -WORD O 
562 003172 177777 . WORD -1 sEND OF MEM TABLE. 
563 003174 CTABE:: 
+4 sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
‘ 
566 3 0 © UNIT NOT TESTED 
567 3 100000 = UNIT ONLINE, NO ERRORS 
568 ’ 1OXXXX = UNIT ONLINE, ENCOUNTERED XXXxX ERRORS 
569 3 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
570 : 160001 = UNIT DROPPED, NOT IDLE AT START 
571 ; 14XXXxX = UNIT DROPPED, ENCOUNTERED XXXxX ERRORS 
572 3 
573 003174 ERTABL: .BLKW 64, 
. 003374 000000 ERTABE: »WORD O 
te 003376 000000 SKIPT: .WORD O 31*SKIP SUBTEST O=NO SKIP OF SUBTEST 
379 .SBTTL GLOBAL TEXT MESSAGES 
so 
580 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
581 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
582 ; MORE THAN ONE TEST. 
583 ny 
584 
585 
586 
587 3° 
588 sNAMES OF DEVICES SUPPORTED 
589 :- 
590 
591 003400 DEVTYP <TSUOS> 
003400 LSOVTYP:: 
003400 124 123 125 .ASCIZ /TSUOS/ 
.EVEN 
592 
594 3+ 
pee ;TEST DESCRIPTION 
3° 
597 003406 DESCRIPT <#see TSUOS DIAG PART 1 - REPLACE M7455 IF ERROR seeee> 
003406 LS$DESC:: 
003406 052 052 052 —_ /aeaee TSUOS DIAG PART 1 - REPLACE M7455 IF ERROR see0/ 
-EVEN 
618 
619 
620 
621 3° 
622 sBIT TO ASCII CONVERSION FOR TSSR REGISTER 
os ; 
625 003474 003534' 003537' 003543’ TSSRBIT:: WORD 1$,2$,3%$,4$,5%$,6$,7$,8$ 
626 003514 003575’ 003601' 003605’ . WORD 9s, 10$, 11$, i2$. 13$, reas 186. 16$ 
627 003534 123 103 ooo 1% ASCIZ ‘SC’ 
628 003537 102 111 105 2s ASCIZ ‘BIE’ 
629 003543 123 103 105 3$ ASCIZ ‘SCE’ 
630 003547 122 115 122 4$ ASCIZ ‘RMR’ 
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633 003563 102 
634 003570 102 
635 003575 123 
636 003601 117 
637 003605 102 
638 003612 102 
639 003617 102 
640 003624 102 
641 003631 102 
642 003636 102 
643 
644 003644 124 
64S 003677 124 
646 003732 040 
647 003771 045 
648 004012 045 
649 004052 045 
650 004111 045 
651 004115 040 
6S2 004144 040 
653 004207 045 
654 004213 040 
655 004250 040 
656 004272 045 
657 004327 040 
658 004401 040 
659 004451 040 
660 
661 004521 000 
662 004522 045 
663 004525 045 
664 004561 045 
665 004635 045 
666 004737 122 
667 005005 040 
668 005050 127 
669 005105 124 
670 005200 124 
671 005272 106 
672 005364 105 
673 005452 045 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 005546 

005546 
685 005546 


005546 013746 003112’ 
005552 012746 003771' 
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005556 012746 000002 


7$; .ASCIZ 
83; .ASCIZ 
9$: ASCIZ 
10$ ASCIZ 
11$ ASCIZ 
1e$ ASCIZ 
13$ ASCIZ 
14$ -ASCIZ 
15$: ASCIZ 
168: ASCIZ 
EVEN 
SFIERR: .ASCIZ 
SFHERR: .ASCIZ 
NXR: ASCIZ 
NXRX ASCIZ 
TSSX ASCII 
ASCIZ 
FUSI: ASCII 
USI: -ASCIZ 
NSI: -ASCIZ 
FNOINTR 
NOINTR: .ASCIZ 
IFAULT: .ASCIZ 
INTX: ASCIZ 
NOINIT: .ASCIZ 
NSINIT: .ASCIZ 
BRINIT: .ASCIZ 
NUL: ASCIZ 
NULCR: ASCIZ 
EXPGOT: .ASCIZ 
EXPGT2: .ASCIZ 
DUAD12: .ASCIZ 
PKTRAM: : 
SCME : ASCIZ 
WRTMSG: .ASCIZ 
WRTERR: .ASCIZ 
RDERR: .ASCIZ 
SCHERR: .ASCIZ 
RETERR: SciIz 
NOMEM: ASCIZ 
EVEN 
SBTTL 


L3 


SEQ 037 


‘BITS’ 
‘B1T8' 


*TSSR ERROR AFTER SOFT INIT’ 

‘TSSR ERROR AFTER BUS RESET’ 

/ NON-EXISTANT DEVICE REGISTER/ 

/#A ADDRESS: #06/ 

/#A TSBA,TSSR EXP’'D: s068A,806s8N/ 

/#A TSBA,TSSR REC'D: #068A,806/ 

/SNBA/ 

4 UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 
-ASCII /ssNSA/ 

4 NO INTERRUPT WAS GENERATED/ 

4 INTERRUPT FAULT/ 

/#A CPU PC: S068A TSBA: #06/ 

4 “BUS-INIT“ DION’ T INITIALIZE CONTROLLER/ 
4 “SOFT-INIT” DION’ T INITIALIZE THE DPU/ 
/ “BUS-RESET” DION’T INITIALIZE THE DPU/ 


4/ 
/8N/ 
/#A EXP'D: SO68A, REC'D: #06/ 


/SNSA EXP'D: SO6HA, SO6SNSA REC'D: SOSA, 


#06/ 
/#A REG(W) WRITTEN TO: 068A REG(R) READ; EXP'D: sO68A, REC'D: 


-ASCIZ ‘RAM Contents Do Not Match Packet Sent’ 
4 CONFIG DOESN’ T MATCH MFG. MASTER/ 

‘WRITE CHARACTERISTICS Failed’ 

‘TSSR Incorrect After WRITE Conmand, More Bits Set Than SSR’ 
‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
‘FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES, TRANSPORT etc.’ 
"ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’ 

‘sNSA ee002 NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. *eeeee65N’ 


GLOBAL ERROR REPORT SECTION 


zee 
; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
; CALLS THAT ARE USED IN MORE THAN ONE TEST. 

; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 


NXRERR: : 


BGNMSG 


PRINTX 
MOV 


NXRERR sNON-EXISTANT DEVICE REGISTER. 
@NXRX , NODEV sNODEV = NEXM ADDRESS. 

NODEV, -(SP) 

@NXRX , -C SP) 


#2,-(SP) 


s06/ 


M3 


TSV3_- GLOBAL AREAS MACRO M1113 07-FEB8-84 10:58 SEQ 038 


GLOBAL ERROR REPORT SECTION 
005562 010600 MOV SP ,RO 
005564 104415 TRAP CS$PNTX 
005566 062706 000006 ADD 06, SP 
686 005572 004737 005600’ JSR PC ,EXTEND ; PRINT EXTENSION IF REQUIRED. 
687 005576 ENOMSG 
005576 - L10002: 
005576 104423 TRAP C$MSG 
688 
689 
690 3 
691 ; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
te ; TO ANY OF THE ABOVE ERROR SIGNATURES. 
3 
694 005600 005727 EXTEND: TST (PC )+ 
695 005602 000000 EXTA: 0 ; O = NO EXTENSION. 
696 005604 001402 BEQ 1$ 
697 005606 004777 177770 JSR PC ,SEXTA 3 APPEND EXTENSION TEXT. 
698 005612 1$: PRINTX @NULCR ; PRINT A BLANK LINE 
005612 012746 004522' MOV @NULCR, -( SP) 
005616 012746 000001 MOV #1,-CSP) 
005622 010600 MOV SP ,RO 
005624 104415 TRAP CS$PNTX 
005626 062706 000004 ADD @4,SP 
oe 005632 000207 RTS PC 
6 .SBTTL PRITSSR - PRINT TSSR CONTENTS 
roa +a 
3 
705 sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
706 ;THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
ad ;BY A MESSAGE PRINTING ROUTINE 
3 
709 ; INPUTS: 
710 : 
vee : R1 CONTENTS OF TSSR 
3 
yaa ; SUBORDINATE ROUTINES: 
3 
M4 r 3 CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
717 a 
718 
719 005634 PRITSSR: 
720 005634 SAVREG ;SAVE GENERAL REGISTERS 
721 005640 010104 MOV R1,R4 ;SAVE THE TSSR CONTENTS 
722 005642 PRINTB #@TSSRFOR,R4 sPRINT THE CONTENTS OF TSSR 
005642 010446 MOV R4,-CSP) 
005644 012746 006225’ MOV #@TSSRFOR, -CSP) 
005650 012746 000002 MOV #2,-CSP) 
005654 010600 MOV SP,RO 
005656 104414 TRAP C$PNTB 
005660 062706 000006 ADD #6 ,SP 
723 005664 010400 MOV R4,RO ;GET TSSR BACK FOR CHIKAMB 
724 005666 004737 015654’ JSR PC, CHIKAMB ;ARE CONTENTS AMBIGUOUS ? 
725 005672 103410 bcs ;BRANCH IF NOT 


5$ 
726 005674 PRINTX #AMBTSSR ;SHOW CONTENTS ARE AMBIGUOUS 


N3 


TSV3_ - GLOBAL AREAS MACRO M1113 07-FEB-84 10:58 SE 9 
PRITSSR - PRINT TSSR CONTENTS neha 
005674 012746 006445’ MOV @AMBTSSR, -CSP) 
005700 012746 000001 MOV #1,-CSP) 
005704 010600 MOV SP ,RO 
005706 104415 TRAP CSPNTX 
005710 062706 000004 ADD a Re 
727 005714 010403 S$: MOV R4,R3 sCONTENTS OF TSSR 
728 005716 042703 001476 BIC @HIADDR!FATERR! TERCLS.R 3 sCLEAR ALL MULTIPLE BIT FIELDS 
729 005722 001434 BEQ 20$ sNO BITS ARE SET 
730 005724 012702 002630’ MOV OTMPBFR ,R2 ; TEMPORARY ASCII BUFFER 
731 005730 012701 003474’ MOV @TSSRBIT,R1 sASCII EQUIVALENT OF BITS 
732 005734 005703 10$: TST R3 sREMAINING BITS TO CONVERT 
733 005736 001413 BEQ 15$ sBRANCH WHEN ALL ARE DONE 
734 005740 000241 CLC ;CLEAR CARRY FOR SHIFT 
735 005742 006103 ROL R3 sSHIFT NEXT BIT TO CARRY 
736 005744 103006 BCC 13$ ;BRANCH IF BIT NOT SET 
737 005746 011100 MOV CR1),RO sPOINTER TO BIT DEFINITION 
738 005750 112022 11$; MOVB CRO)+,CR2)¢ sMOVE ASCIZ TO BUFFER 
739 005752 001376 BNE 11$ sMOVE ALL BITS 
740 005754 112762 000054 177777 MOVB @',,-10€R2) s INSERT A COMMA TO TERMINATE 
741 005762 005721 13$: TST C(R1)+ sPOINT TO NEXT DESCRIPTION 
742 005764 000763 BR 10$ ;GET THE REMAINING BITS 
743 005766 105042 15$: CLRB -(R2) s TERMINATE THE LINE 
744 005770 PRINTX @TSSDEF,@TMPBFR ;PRINT THE BIT DEFINITIONS 
005770 012746 002630' NOV OTMPBFR, -CSP) 
005774 012746 006416' MOV @TSSDEF , -( SP) 
006000 012746 000002 MOV @2,-CSP) 
006004 010600 MOV SP ,RO 
006006 104415 TRAP CSPNTX 
_ 006010 062706 000006 ADD 6, SP 
746 006014 010403 20$: MOV R4,R3 ;GET THE TSSR CONTENTS 
747 006016 042703 177761 BIC @tCTERCLS,R3 ;CLEAR ALL BUT TERMINATION 
748 006022 016303, 006506’ MOV TCOCOO(R3).R3 ;GET THE TERMINATION CODE MEANING 
749 006026 PRINTX @TCOASC,R3 sPRINT THE TERMINATION CODE 
006026 010346 MOV R3,-CSP) 
006030 012746 006306' MOV @TCOASC, -(SP) 
006034 012746 000002 MOV @2,-(SP) 
006040 010600 MOV SP ,RO 
006042 104415 TRAP CSPNTX 
006044 062706 000006 ADO #6, SP 
750 006050 010403 MOV R4,R3 ;TSSR CONTENTS AGAIN 
751 006052 042703 177717 BIC @rCFATERR,R3 ;CLEAR ALL BUT FATAL TERMINATION 
752 006056 001416 BEQ 2es$ ;DON‘'T PRINT IF ZERO 
753 006060 006203 ASR R3 
754 006062 006203 ASR R3 
755 006064 006203 ASR R3 sALINE TERMINATION CODE FOR INDEX 
756 006066 016303 007046’ MOV TSFCODCR3),R3 ;GET THE FATAL TERMINATION CODE 
757 006072 PRINTX #TFCASC,RS sPRINT THE FATAL TERMINATION CODE 
006072 010346 MOV R3, -(SP) 
006074 012746 006347’ MOV @TFCASC, -C SP) 
006100 012746 000002 MOV @2,-(SP) 
006104 010600 MOV SP ,RO 
006106 104415 TRAP CSPNTX 
006110 062706 000006 ADD #6, SP 
758 006114 042704 176377 25%: BIC #tCHIADOR ,R4 ;CLEAR ALL BUT EXTENDED ADDRESS 
759 006120 001411 BEQ 30$ ;D0N'T PRINT IF ZERO 


760 006122 PRINTX #TEXASC,R4 sPRINT THE EXTENDED ADDRESS BITS 


- GLOBAL AREAS 
SSR - PRINT TSSR CONTENTS 
006122 010446 
0061 012746 006245’ 
006130 012746 000002 
006134 010600 
006136 104415 
006140 062706 000006 
761 006144 013703 002176' 
762 006150 
006150 010346 
006152 012746 000001 
006156 010600 
006160 104415 
006162 062706 000004 
763 006166 000207 
766 006170 
767 006170 045 116 
782 006225 045 116 
783 006245 045 116 
784 006306 045 116 
785 006347 045 116 
786 006416 045 116 
4 006445 045 116 
789 006506 006526’ 006551’ 
790 006526 116 157 
791 006551 124 145 
792 006577 124 141 
793 006621 106 165 
794 006641 122 145 
795 006723 122 145 
796 006772 125 156 
797 007016 106 141 
798 
799 
800 007046 007056’ 007112’ 
801 007056 111 156 
802 007112 122 145 
803 007123 102 165 
804 007167 122 145 
805 
806 
807 
808 
809 
810 
811 
812 
613 
814 
815 
816 
617 
618 
819 
820 


MACRO M1113 07- 


006577' 


007123' 
1 


FEB-84 10:58 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
303; MOV 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
RTS 
EPRT 
EPRT1: .ASCIZ 
TSSRFOR: 
TEXASC: 
TCOASC: 
TFCASC: 
TSSOEF ; 
AMBTSSR: 
EVEN 
TCOCOO: .WORD 
18; -ASCIZ 
2s: -ASCIZ 
38: -ASCIZ 
43% .ASCIZ 
5$: -ASCIZ 
63% .ASCIZ 
7% ASCIZ 
83: ASCIZ 
-EVEN 
TSFCOD: .WORD 
1%: -ASCIZ 
2s: -ASCIZ 
3%: ASCIZ 
4%: -ASCIZ 
VEN 
SBTTL 


SEQ 040 


6 , SP 
EPRTSW,RS sPRINT MEAASGE BUFFER ADDRESS 
R3 sPRINT PROPER MESSAGE 

R3, -(SP) 

“1, -(SP) 

SP ,RO 


CSPNTX 
04,SP 


Pc’ ;RETURN TO CALLER 


‘ONDA eeeeeREPLACE M745Seeceee' 
Z ‘sNBA TSSR = 806‘ 
‘SNA Extended Address Bits = 606’ 
x ‘SNSA Termination Class Code = sT' 
-ASCIZ ‘NSA Fetal Termination Cless Code « sT’ 
‘sNSA TSSR Bite Set: ST’ 
‘S@NSA TSSR Contents Are Ambiguous’ 


1%,28,3%,4%,5%8,68%,73,88% 

‘Normel Termination’ 

‘Termination Condition’ 

‘Tape Stetus Alert’ 

‘Function Reject’ 

*"Recoverable Error - Tape Position One Record Down’ 
‘Recovereble Error - Tape Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fatel Controller Error’ 


1$,28,38,4$% 

‘Internel Diegnostic Fai lure’ 

‘Reserved’ 

‘Bus Interface or Sanity Check Error’ 

‘Reserved’ 

PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


te 
sTHIS ROUTINE PRINTS THE ADORESS AND CONTENTS OF A COMMAND PACKET. 
sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


3 
s INPUT: 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R35 IS IGNORLO IF THE KTENABLE FLAG IS CLEAR, 


PRIPKT BRENT ERE aporE SSSCONTEAS 87 EBRuiND Pace 1 


$33 
824 


007200 
007200 


012402 
010246 


003132’ 


007364" 
000003 


000010 


017130° 


007326' 
000003 


000010 


116 
116 


045 
045 


PRIPKT:; 


108; MOV 


158: MOV 


208: CLR 
258: 


PKTFRM: . 
PKTADD: .ASCIZ 


s¢ 


3 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRIN’ ROUTINES. 


3 

s INPUTS: 

a 

3 RL 
F R2 


3 
sOUTPUT: 
F 


C4 


R1 

(R4&)+,R2 
OPKTFRM,R1,R2 
R2, -(SP) 

Ri, -(SP) 
OPKTFRM, -( SP) 
o3, -(SP) 

SP ,RO 


CSPNTB 
#10,SP 
Ri 
R1,R5 
25% 

PC 


sSAVE THE REGISTERS 
sSAVE NO. OF WORDS IN PACKET 
sABOVE 26K UNDER TEST? 


s8R IF YES 


sSET HIGH ORDER ADORESS TO 0 
sCOPY HIGH ORDER ADDRESS 
sGET LOWER ADORESS 

;SHIFT BIT 15 INTO C BIT 
s/NO INTO HIGH ORDER. 

i} RINT PACKET ADDRESS 


sGET HIGH ORDER ADDRESS 


ESS 
sSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
sGET RETURNED PAR6 ADDRESS BIAS 
NUMBER 
sGET PACKET CONTENTS 


sSAVE_ WORD 
sPRINT THE DATA 
/ 


sNEXT WORD NUMBE 
sDONE ALL PACKET WORDS? 
sLOOP TILL ALL DONE 


sRE TURN 


‘@NSA Packet Word OSDISA = 806’ 
‘SNBA Packet Address - 6019805‘ 


PRIBXOR 


RECEIVED DATA 
EXPECTED DATA 


- PRINT EXPD, RECV AND XOR BYTE 


SEQ 041 


PLB an “Pano, neCYRRo ROA a vP2 FEB 84 10:58 


010203 


010346 
010146 
010246 
012746 
012746 
010600 


177400 


116 


007622’ 
000004 


045 


t RO 


SAVREG 
MO 


3? 


D4 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


R2,R3 sEXPECTED DATA 

R1,R3 sFORM THE EXCLUSIVE OR 
@tC<377>,RO sBYTE MASK 

RO,R1 sSAVE LOW BYTE RECV 
oe’ at sSAVE LOW BYTE EXPD 
RO,RS sSAVE LOW BYTE XOR 


@xORBFOR,R2,R1, RS sPRINT THE MESSAGE 
R3,-(SP) 


R3,RO sRO HAS XOR ON RETURN 
PC ;RETURN TO CALLER 


-ASCIZ ‘SNA EXPD: SO3SA RECV: SO38A XOR: 


PRIXOR - PRINT EXPD, RECV AND XxOR 


8 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


o 

s INPUTS: 

: 

; R1 
3 R2 


° 
sOUTPUT: 
3 

: RO 
3 

3 a 


PRIXOR:: 


RECEIVED DATA 
EXPECTED DATA 


xXOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 
R2,R3 sEXPECTED DATA 
R1,R3 sFORM THE EXCLUSIVE OR 
OXORFOR, R2,R1,R3 ;PRINT THE MESSAGE 
R3,-(SP j 
R1,-(SP) 
R2,-CSP) 
@XORFOR, -( SP) 
04, -(SP) 
SP,RO 


s03° 


SEQ 042 


E4 


TSV3 - GLOBAL AREAS MACRO M1113 07-FEB-84 10:58 SEQ 043 
PRIXOR - PRINT EXPD, RECV AND XOR 
©07610 104414 TRAP CSPNTB 
007612 062706 000012 ADD #12,SP 
908 007616 010300 MOV R3,RO 3RO HAS XOR ON RETURN 
oe 007620 000207 RTS PC sRETURN TO CALLER 
1 
911 007622 045 116 045 XORFOR: .ASCIZ ‘sNSA EXPD: sSO68A RECV: SO6SA XOR: S06’ 
4 | .EVEN 
oe .SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
1 
3 P 
: 
918 sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
a. sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
F 
921 : INPUTS: 
922 
923 : RO OCTAL VALUE TO CONVERT 
4 ; R1 TABLE OF POINTERS TO ASCII EQUIVALENT 
Hy 
926 3- 
927 
928 007670 PRIEQU: 
929 007670 SAVREG ;SAVE THE REGISTERS 
oat 007674 000207 RTS PC sRETURN TO CALLER 
1 
932 
933 
934 
935 -SBTTL PRIRAM - PRINT RAM ADDRESS 
936 3° 
937 ; 
938 sPRINT CONTROLLER RAM ADDRESS. 
aor ;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
3 
941 ; INPUTS: 
942 3 
943 3 R4 RAM ADDRESS 
944 ; 
945 é 
946 007676 PRIRAM: 
947 007676 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
948 007702 PRINTB @RAMFOR,R4 sPRINT RAM ADORESS IN ERROR 
007702 010446 MOV R4,-(SP) 
007704 012746 007726’ MOV @RAMFOR, -( SP) 
007710 012746 000002 MOV 02,-(SP) 
007714 010600 MOV SP,RO 
007716 104414 TRAP CSPNTB 
007720 062706 000006 ADD 06 ,SP 
on 007724 000207 RTS PC ;RETURN 
951 007726 045 116 045 RAMFOR: .ASCIZ ‘sNSA CONTROLLER RAM ADDRESS = #06' 
952 .EVEN 
953 
954 ‘ 
955 .SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


956 5s 


TSV3 - GLOBAL AREAS MACRO M11 


PRIADD 


- PRINT MEMORY ERROR ADDR 


010104 
010104 
010110 
010114 


010120 


013700 002234' 
013701 002236' 
010102 
006101 
006100 


010246 


~ 
\ 


013702. 002234' 
013701 002236' 


010146 
012746 010166’ 
012746 000002 


13 07-FEB-84 10:58 
ESS 


‘ 
e+ of oe of of oF oF 


F4 


3 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


ERRHI 
ERRLO 


PRIADD: 


PRIAO: .ASCIZ 
-EVEN 


3¢ 


IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 


ERRHI,RO sGET HIGH ADORESSS 
ERRLO,R1 sGET LOW ADDRESS 
R1,R2 sCOPY LOW ADDRESS 

R1 sSHIFT BIT 15 TOC BIT 


RO sSHIFT INTO HIGH ORDER 
OPRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
Re, -(SP) 

RO, -(SP) 
@PRIAO, -( SP) 
@3,-(SP) 

SP RO 

CSPNTB 
#10,SP 

PC sRETURN 


‘sNSA MEMORY ERROR ADDRESS = #01805’ 


PRITADD - PRINT MEMORY TEST ADDRESS 


; 
sPRINT MEMORY ADDRESS 
THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


ERRHI 
ERRLO 


PRITADD: 


IMPLICIT INPUTS 


- MIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 


ERRHI ,R2 sGET HIGH ADDRESSS A 
ERRLO,R1 sGET LOW ADDRESS 

R1,R2 sCOPY LOW ADDRESS 

R1 sSHIFT BIT 15 TOC BIT 

RO sSHIFT INTO HIGH ORDER 

OPRITO,R1 sPRINT MEMORY ADDRESS LOW iN ERROR 
R1,-(SP) 

OPRITO, -(SP) 

@2, -(S 

SP ,RO 

CSPNTB 


SEQ 044 


TSV3 GLOBAL AREAS 
- PRINT MEMORY TEST ADDRESS 


PRITADD 
1001 


010142 
010142 
010144 
010150 
010154 
010156 
010160 
010164 


010166 
010231 


010276 
010276 
010302 
010310 
010316 
010320 
010322 
010326 


012737 
012737 


G4 


MACRO M1113 07-FEB-84 10:58 SEQ 045 
= peed t Thy sPRINT MEMORY ADDRESS HIGH IN ERROR 
Vv .~ 

010231’ MOV OPRIT1, -CSP) 
000002 MOV o2, -¢ 

MOV SP, 

TRAP CsPNTB 
000006 ADD 6, 

RTS PC sRETURN 
116 045 
116 045 


000764 010470' 
140010 010460’ 


010462’ 


PRITO: .ASCIZ ‘sNSA MEMORY TEST ADDRESS LOW = #06’ 
PRIT1: .ASCIZ ‘sNSA MEMORY TEST ADDRESS HIGH = #06’ 


-SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
3° 


‘ 
sROUTINE TO ISSUE A SPACE RECORDS 
sCOMMAND (FORWARD OR REVERSE ) 


3 
3; INPUT: 
R3 NUMBER OF RECORDS TO BE SPACED OVER 
BIT1S CONTROLS DIRECTION 
BIT1S5 = O IS FORWARD 
BIT1S = 1 IS REVERSE 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
OUTPUT: 


CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 


RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 
TAPE HAS BEEN MOVED 
SIDE EFFECTS: 


SPACE 
SAVREG sSAVE THE "ie REGISTERS 
MOV #500. ,SDELAY sSET UP DELA 
MOV #140010, 80$ ;SET UP COMMAND , SPACE FORWARD 
TST R3 sCHECK FOR DIRECTION 
BMI S$ 3;BR, IF REVERSE INDICATED 
MOV R3,90$ ;LOAD UP NUMBER OF RECORDS TO SPACE 


BR 10% :GO 00 COMMAND 


ortat 1) Ie 3 


wie 


1052 010330 
1053 010334 


ECORDS 


CFORWARD Ano REVERSES “COMAAND 


100000 
010462’ 
000400 
010460' 
000000 
016060' 


000250 
002116' 
177772 
177756 
010470' 


000002 
000200 


010460' 


S$: 


108: 
158: 


208: 
25%: 


40$: 


60$: 
708: 


-BLKB 
sCOMMAND WORD 
80$: 

; WORD 

. WORD 
SDELAY: .WORD 

-EVEN 


3? 


-SBTTL WRTCHR 


H4 


#BIT15,R35 
R 


acne: 
ar 


60$ 
TSSRCRS),R1 
@SSR,R2 
R2,R1 

40$ 

60$ 


70$ 


R4,RO 
PC 


PACKET FOR SPACE COMMAND 


10-<, -TSV2E7> 


sCLEAR yt» BIT 
sLOAD UP NUMBER 
sSET REVERSE BIT IN 


Cc 
sSET UP R4 WITH PACKET ADDRESS 
COMMAND 


38R, IF SSR IS SET AND OK 


;DELAY ABOUT .25 SECONDS 


sBUMP DELAY COUNTER DOWN 
3BR, IF MORE DELAY 

3;BR IF TROUBLE CARRY = CLEAR 
sREAD TSSR 

;SET UP EXPECTED 

sARE THEY OK 

3BR, IF EQUAL = OK 

s TROUBLE EXIT 

;SET CARRY NO TROUBLE 


;EXIT 

sCARRY CLEAR = ERROR 
3PASS PACKET ADDRESS 
;RETURN 


. WORD 
— OF RECORDS TO BE SPACED OVER WORD 
90% . WORD 


;DEL“Y COUNTER 


- WRITE CHARACTERISTICS COMMAND 


; 
sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


8 
; INPUT: 


SEQ 046 


OF RECORDS TO rT 
OMMAND PACKE 


14 


AL _ ARE MACRO M1113 07-FEB-84 10:58 SEQ 047 
- WRITE CHARACTERISTICS CoHnAND : 
RG ADDRESS OF PACKET FROM TEST 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
OUTPUT: 
RO TSSR CONTENTS 


CARRY SET - WRITE CHARACTERISTICS COMMAND 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 
MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 


EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


SIDE EFFECTS: 


010472 WRTCHR: : 

010472 SAVREG sSAVE THE GENERAL REGISTERS 

0104676 005037 002226’ CLR BENBSW sCLEAR BUFFER ENABLE SWITCH 

010502 005037 002224’ CLR EXTFEA sCLEAR EXTENDED FEATURES SW SWITCH 

010506 010465 000000 10$; MOV R4,TSOBCRS) 3SENO OUT COMMAND 

010512 004737 016146’ JSR PC,.CHKTSSR ;WAIT FOR SSR 

010516 103401 BCS 20% 3;B8R, IF SSR IS SET AND OK 

010520 000435 BR 60$ ;BR IF TROUBLE CARRY = CLEAR 

010522 016501 000002 20%: MOV TSSRCRS),R1 sREAD TSSR 

010526 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

010532 032701 000100 BIT @OFL .R1 sWAS OFF LINE SET IN TSSR 

010536 001402 BEQ 25% 3;B8R, IF NO OFL SET 

010540 052702 000100 BIS @OFL ,R2 sMAKE THEM LOOK ALIKE 

010544 020201 25$: CMP R2,R1 s;ARE THEY OK 

010546 001401 BEQ 40$ sBR, IF EQUAL = OK 

010550 000421 BR 60$ ; TROUBLE EXIT 

010552 062704 000010 40%: ADD 08. ,R4 sPOINT TO WRT CHARA DATA PACKET 

010556 011403 MOV C(R4),R3 sGET ADDRESS OF MESSAGE BUFFER 

010560 032763 000200 000012 BIT xe. EXTF, xST2CR3) sEXTENDED FEATURES BIT SET? 

010566 001402 BEQ 453 :BR IF NO 

eee dng 005237 002224’ . INC EXTFEA sSET EXTENDED FEATURES SW SWITCH 
4S$: 

010574 032763 000100 000012 BIT OX2.BUFE ,xST2(R3) sBUFFER ENABLE SWITCH SET 

010602 001402 BEQ 50$ ;BR, IF SWITCH NOT SET 

goers 005237 002226’ mes INC BENBSW sSET SOFTWARE SWITCH FOR ENABLED 

010610 000261 SEC sSET CARRY NO TROUBLE 

010612 000401 BR 70$ sEXIT 

010614 000241 60$; CLC sCARRY CLEAR = ERROR 

010616 016500 900002 70$; MOV TSSRCRS),RO sRETURN TSSR CONTENTS 

010622 000207 RTS PC sRE TURN 


-SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 


TSV3 - GLOBAL AREAS 


REWIND 


010712 


010714 
010720 
010720 
010722 


012727 
000000 
013727 
000000 


102010 
000000 


MACRO M1113 07-FEB-84 10:58 
- POSITION TAPE (REWIND) COMMAND 


010720° 
000000 


000550 
016060' 
000372 
002116’ 
177772 
177756 


J4 


SEQ 048 


; 
sTHIS ROUTINE WILL REWIND THE SELECTED TAPE. 


THE ROUTINE DOES NOT WAIT FOR BOT 
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 


JSR 
INPUT: 
RS 


OUTPUT 
RO 


3 - 
REWIND: : 


10$: JSR 


20%: MOV 


RWPACK: 


CAUTION: 


SSR TO SET IN THE TSSR 


CALLING SEQUENCE : 


DO A SOFT INIT 
DO A WRITE CHARACTERISTICS 


PC ,REWIND 


FIRST DEVICE UNIBUS ADDRESS 


THE CONTENTS OF R4 IS PASSED TO RO 


@RWPACK ,R4 
R4, TSOBCRS) 
#360. ,R3 


PC ,WAITF 
203 


250. 
eae CPC )> 
"Deatheateets 


10-<, -TSV2E7> 
102010 
ie) 


sSAVE R1-RS UNTIL NEXT RETURN 

;GET PACKET ADDRESS 

sSEND PACKET ADDRESS TO EXECUTE 
sENOUGH TIME FOR 2400' REEL TO REWIND 
sWAIT FOR SSR TO SET 

;LEAVE WHEN SSR IS SET 

sWAIT FOR .25 SECONDS 


sBUMP COUNTER DOWN 

;KEEP GOING 

;CLEAR CARRY 70 SET ERROR 
sPASS THE PACKET ADDRESS 
sRETURN 


sPOSTION COMMAND (REWIND) 
sNOT USED 


CKRAM - COMPARE RAM TO I/O PACKET 


tod - GLOBAL AREAS 
CKRAM COMPARE RAM TO I/0 PACKET 


010724 
010724 
010730 
010734 
010740 


011032 


012701 
012702 
S00 


MACRO i123 07-FEB-84 10:58 


002240' 
000201 


016146' 
000000 
016146’ 
000000 
016146’ 
000000 


000210 


000010 002300' 


3¢ 


IK4 


SEQ 049 


; 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


i 
: INPUT: 


3 
; OUTPUT: 


10$: 


20$: 


R4 
RS 


CARRY 


SIDE EFFECTS: 


ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 


CLR - RAM DOES NOT MATCH PACKET 
é 

s IMPLICIT OUTPUT: 
THE TABLE yy IS FILLED WITH THE 


DATA HELD IN 
RAMSIZ IS ser 10. 8. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


.SBTTL 


@RAMDATA,R1 
lita te 


PC ,.CHKTSSR 
#0, TSOBCRS) 


TSBACRS), (RL) 
(R1)+,CR4)> 
20s 


R3 

R2 

R2, ORMPK TEND 
10$ 


R3 
30% 


50$ 
08. ,RAMSIZ 
PC 


CKRAM2 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
;CLEAR THE ERROR FLAG 

;WAIT FOR SSR 

3SET MAINTENANCE MODE 

sWATT FOR SSR TO SET 

sSELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

sBRANCH IF OK 

sSET ERROR FLAG 

;ADDRESS OF NEXT RAM LOCATION 
;REACHED END YET ? 

;BRANCH TILL ALL READ 

sWAS AN ERROR FOUND ? 

;BRANCH IF NOT 

sCLEAR CARRY TO SHOW ERROR 
sANO EXIT 

sSHOW GOOD COMPARE 

sSETUP RAMSIZ FOR PRAMPKT ROUTI ‘ 
;RETURN 


- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


TSV3_ - GLOBAL AREAS 


CKRAM2 


012701 


MACRO M1113_ 07-FEB-84 eg 
- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM R 


002240' 
000167 


016146' 
000000 
016146' 
000000 
016146' 
000000 


000010 002300’ 
002224' 


000012 002300’ 
000200 


000176 


AM 
;MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


3 
3; INPUT; 


i 
: R4 
F RS 


3 

;OUTPUT: 

3 

3 CARRY 


SIDE EFFECTS: 


10$: JSR 


20%: INC 


25%: CMP 
27s: TST 


30%; SEC 
50$: RTS 


L4 


ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 


CLR - RAM DOES NOT MATCH PACKET 
3 
s IMPLICIT OUTPUT: 


@RAMDATA,R1 
— aceant 


3 
PC,CHKTSSR 


#0, TSDOBCRS) 
PC,CHKTSSR 


) 
TSBACRS),(R1) 
CR1)+,(R4)+ 
20% 


#10. ,RAMSIZ 
Re, @RMCHEND 
10$ 

27s 

R2, ORMCHEND -2 
10$ 


R3 
30% 


SOs 
PC 


THE TABLE koe IS FILLED WITH THE 
DATA HELD IN R 
RAMSIZ IS SET 10° 8. OR 10. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


;SAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
;BYTE ADORESS OF FIRST RAM DATA 
;CLEAR THE ERROR FLAG 


;WAIT FOR SSR 


3SET MAINTENANCE MODE 
;WAIT FOR SSR TO SET 
;SELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 
sREAD THE RAM DATA 
sCOMPARE TO EXPECTED 


;BRANCH IF OK 


sSET ERROR FLAG 
sADORESS OF NEXT RAM LOCATION 
sASSUME EXTFEA NOT SET 


SEQ 050 


:IS THE = <li ay EXTENDED FEATURES 5ET 


;BR, IF NOT 


S 
sSET RAMSIZ FOR EXTEND FEATURES 
sAT END OF EXTENDED BUFFER 
;BR, IF NOT AT END YET 


sAT END BRANCH 


sREACHED END YET ? 
sBRANCH TILL ALL READ 
sWAS AN ERROR FOUND ? 


;BRANCH IF NOT 


;CLEAR CARRY TO SHOW ERROR 


sAND EXIT 


3SHOW GOOD COMPARE 


;RETURN 


GRMsc SCOR GHPARE UrITe CHARS HeSbace urFERe* 10:58 


011170 
011170 
011174 
011200 
011204 
011210 


002302' 
002304’ 
003132’ 


017130' 


002320' 
002464 ' 


000002 
000014 


000200 
000016 


000012 


3¢ 


. SBTTL 


M4 


CKMSG 


- COMPARE WRITE CHAR. MESSAGE BUFFERS 


; 

sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


10$: 


15$: 


25%: 


50$: 


55%: 
60$: 


CARRY 


EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 


.SBTTL 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 


SET - MESSAGE BUFFERS MATCH 
CLR -MESSAGE BUFFERS DON’T MATCH 


BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 

SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADORESS OF RECV 


RO,RCVHIAOD 
R1,RCVLOAD 
KTENABLE 


10$ 
PC ,SETMAP 


R3 
R2,R5 


;SAVE R1-RS UNTIL NEXT RETURN 

;SAVE RECV HIGH ADDRESS 

;SAVE RECV LOW ADDRESS 

sTESTING ABOVE 28K? 

;B8R IF NO 

sRETURN ADDRESS BIASED TO PARG6 IN RO 
;GET RETURNED ADDRESS BIASED TO PAR6 
;WORD IN BUFFER 

;CLEAR ERROR SEEN FLAG 

;GET EXPD BUFFER ADDRESS 


(R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
CR1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 


(R2)+,(RL)+ 
25% 


sEXPD EQUAL RECV? 

;BR IF YES 

;SET ERROR SEEN FLAG 

sPOINT TO NEXT WORD ADDRESS 
;DONE FIRST 7 WORDS? 


15$ ;BR IF NO 
a -EXTF, -xST2CRS 33S EXTENDED FEATURES SET IN EXPD? 


PC 


NO 
Or —— FEATURES WORD? 


sANY ERRORS SEEN? 
;BR IF NO 
3;SET FAILURE 


é 
3SET SUCCESS 
;RETURN 


CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


SEQ 051 


TSV3_- GLOBAL AREAS 


CKMSG2 


1382 
1383 


0 
- COMPARE EXPD RECV ME 


011310 


011432 


020327 
003412 
012703 


012746 


MACRO M1 
ss 


000144 
000144 


011442’ 
000001 


017130° 


002320' 
002464’ 


000001 


113 


AGE BUFFERS 


3¢ 


a 10:58 


N4 


: 
sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 


sBUFFER,. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 


sERROR PRINT ROUTINES. 


3 
; INPUT; 


EKMSG2: 


S$: 


10$: 
15$: 


25%: 


50$: 


CARRY 


;IMPLICIT OUTPUT: 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 


EXPD MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 


SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON’T MATCH 


BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 


SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 


;SAVE R1-RS UNTIL NEXT RETURN 
+ » ORECMSG - EXPMSG ; 980 IS COUNT ABOVE MAX ALLOWED? 


BR IF NO 


;SAVE RECV HIGH ADDRESS 
sSAVE RECV LOW ADDRESS 


;TESTING ABOVE 28K? 
;BR IF NO 


sRETURN ADDRESS BIASED TO PAR6 IN RO 
3GET RETURNED ADDRESS BIASED TO PARE 


;WORD IN BUFFER 


;CLEAR ERROR SEEN FLAG 
sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


;EXPD EQUAL RECV? 
;BR IF YES 

;SET ERROR SEEN FLAG 
sPOINT TO NEXT BYTE 
;DONE ALL BYTES? 

;8R IF YES 

300 NEXT BYTE 

;ANY ERRORS SEEN? 
;BR IF NO 


EXPMSG 

RECMSG 

RCVHIADD 

RCVLOADD 

* SAVREG 

CMP 

BLE ; 980 
MOV @RECMSG -EXPMSG, R3; 990 
PRINTF @#DEBUGMSG ; 380 
MOV @DEBUGMSG, -( SP) 
MOV #1,-CSP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD 04,SP 

MOV RO,RCVHIADD 

MOV R1,RCVLOAD 

TST K TENABLE 

BEQ 10$ 

JSR PC ,SETMAP 

MOV ° 

CLR R4 

CLR RS 

MOVB (R2),EXPMSGCR4 ) 
MOVB (R1),RECMSG(R4 ) 
CMPB (R2)+,CR1)+ 

BEQ 2e5$ 

INC RS 

ADO #1,R4 

CMP R4,R3 

BGE 50$ 

BR 15$ 

TST RS 

BEQ 55$ 

cLC 


;SET FAILURE 


SEQ 052 


TSVS - GLOBAL AREA 
CKMSG2 


1434 
1435 


MACPO M1113 07-FEB-84 10:58 SEG 053 
COMPARE EXPD RECY MESSAGE BUFFERS . 
011434 000401 BR 608 ‘ 
011436 000261 55%: SEC 1SET SUCCESS 
011440 000207 605: RTS PC sRETURN 
011442 120 122 117 OEBUGMSG: .ASCIZ * AM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED -' 
011532 045 116 045 FERCM: .ASCII /SNBA ce0/ 
011543 040 040 124 ERCM: -ASCIZ 7 TSSR ERROR CODE REC'D «= / 
011576 056 056 O56 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
011631 124 105 123 TINERR: = TEST: ...7 
s* 
; 
sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 
‘ 
s INPUT: 
| 
’ Ri CONTENTS OF TSSR AT ERROR 
4 
sSIOE EFFECTS: 
3 : 
r] EXECUTES DROP UNIT TO CEASE TESTING 
Q 
i- 
011644 BGNMSG SF IMSG 
011644 SFIMSG: : 
011644 004737 005634’ PC, .PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
011650 004737 017014’ JSR PC .CKDROP sOROP UNIT, IF ALLOWED 
011654 ENOMSG 
011654 L10003: 
011654 104423 TRAP CsmMSG 
3 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
3TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
. 
s INPUTS: 
3 R1 TSSR CONTENTS 
’ R4& ADDRESS OF COMMAND PACKET 
: 
t- 
011656 PKTSSR 
011656 PKTSSR:: 
011656 004737 005634 JSR PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
011662 012700 000004 MOV @4 RO sNO. OF WORDS IN PACKET 
011666 004737 007200' JSR PC PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
011672 ENOMSG 
011672 10004; 
011672 104423 TRAP CsmMSG 
a 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A GET STATUS COMMANC PACKET. 


C5 


Getisc2 “°RGHPARE “Expo RECO*RESSAGE wOFrERE °* 19*58 


011674 
011674 
011674 
011700 
011704 
011710 
011710 
011710 


011712 
011712 
011712 
011716 
011716 
011716 


004737 
012700 
004737 


104423 


004737 


104423 


004737 
010200 
010301 
004737 


104423 


005634’ 
000002 
007200' 


005634" 


005634' 


014052’ 


INPUTS: 
; Ri TSSR CONTENTS 
’ RO ADORESS OF COMMAND PACKET 
’ 
i *- 
PKTGETS 
PKTGETS:: 
ay PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV 2,RO sNO. OF WORDS IN GET STATUS PACKET 
JSR pc: *PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 
L10005: 
TRAP CsmsSG 


3° 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 


7 
s INPUTS: 
° 
; RL TSSR CONTENTS 
; R4 ADDRESS OF COMMAND PACKET 
t . 
SFFMSG 
SFFMSG: : 
JSR PC,.PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
¥ ENOMSG 
* TRAP C$MSG 


-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
s¢ 


6 
sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
sBUFFER FOR ERROR REPORTS 


3 

s INPUTS: 

3 

F R1 CONTENTS OF TSSR 

3 RD LOW ORDER MESSAGE BUFFER 

3 R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

3 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 

t- 
BGNMSG PKTMES 

PKTMES: 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
MOV R2,RO :LOW ORDER ADORESS 
MOV R3,R1 sHIGH ORDER ADDRESS 
JSR PC ,PRMESS sPRINT THE MESSAGE BUFFER 
ENOMSG 

10007; 


TRAP C$MSG 


SEQ 054 


peimes BR tui tSse ano AESSae ade PR FEB “84 10:58 


011754 
011754 
011754 
011760 
011764 
011766 
011772 
011776 
011776 
011776 


004737 
016501 
004737 


104423 


012700 
005737 
001402 
012700 
004737 


104423 


000007 
002224' 


000010 
014362’ 


. SBTTL 


D5 


ADDSSR - PRINT TEST ADDRESS AND ISSR 


{PRINT ROUTINE TO PRINT THE CONTENTS OF 
“ean AND A MEMORY TEST ADDRESS 


: TINPUTS: 
3 
: RS 
: ERRHI 
3 ERRLO 
a — 
AUDSSR: : 
JSR 
MOV 
JSR 
ENDMSG 
L10010: 
TRAP 
. SBTTL 


3° 


FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADDRESS 
LOW ORDER MEMORY TEST ADDRESS 


ADOSSR 

PC ,PRITADD sPRINT MEMORY TEST ADDRESS 
TSSRC(RS),R1 sGET CURRENT TSSR 

PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
CSMSG 


MSGEXP - PRINT WRITE CHAR, EXPD-RECV MESSAGE BUFFERS 


é 

sPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
3 

sIMPLICIT INPUTS: 


EXPMSG 


TRAP 


. SBTTL 
id 


RECMSG 
RCVHIADD 
RCVLOADD 


EXPECTED MESSAGE BUFFER 
RECEIVED MESSAGE BUFFER 
RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


@7,RO sASSUME NO EXT FEATURES 

EXTFEA sEXT FEATURES SET? 

5s 3BR IF NO 

#8. ,RO sEXT FEATURE BUFFER IS 8 WORDS 
PC ,PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 


C$MSG 
FIFEXP - PRINT FIFQ EXP/RECV DATA 


‘ 
sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 


; 
3 RL 


- BYTE COUNT 


; 
sIMPLICIT INPUTS: 


‘ 
F EXPMSG 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 


SEQ 055 


TSV3 - GLOBAL AREAS 


FIFEXP 
1584 
1585 
1586 


1587 


1588 


MACRO 
- PRINT FIFO EXP/RECV DA 


012121 


012220 


012701 
012100 


012052' 


012121’ 
000001 


012222' 


M1 


11 
TA 


3 07-FEB-84 10:58 


’ RECMSG 
:- 


FIFEXP: : 


L1001e: 


FIF1MSG: 
FIFOMSG: 
-EVEW 


3° 


; 
sPRINT ROUTINE 
; 


E5 


- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 


FIFEXP 
OF IFAIMSG,R1i 


PC, PRBYTEXP 


C$MSG 


sPRINT BYTES TRANSFERRED 


sPRINT HEADER MSG 


sGET BYTE COUNT 
sPRINT FIFO BYTES IN ERROR 


-ASCIZ ‘sNSA NUMBER OF BYTES TRANSFERRED = #02’ 
-ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR:’ 


MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


TO PRINT MESSAGE BUFFER EXPD/RECV 


3 
sIMPLICIT INPUTS: 


: EXPMSG 

: RECMSG 

3 RCVHIADD 

3 RCVLOADD 

3 — 
BGNMSG MSGSTAT 

MSGSTAT:: 
MOV @STATCOD,R1 

10$ MOV (R1)+,RO 
BEQ 20% 
PRINTX RO 
MOV RO, -( SP) 
MOV 01, -(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD 04,SP 
BR 10$ 

208: MOV #10, ,RO 
JSR PC , PRMSGE xP 
ENOMSG 

L10013: 

C$MSG 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 

- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


sASCII ADDRESS TABLE 
;DONE ALL MSG LINES? 
38R IF YES 

sPRINT STATUS BIT NAMES 


300 a MSG LINE 
sNUMBER OF WORDS IN A READ STATUS BUFFER 
;PRINT EXPD/RECV MESSAGE BUFFERS 


SEQ 056 


FS 


TSV3_- GLOBAL AREAS_ M1113 07-FEB- :58 ? 
MSGSTAT - PRINT STAJUS HEADE AND MESSAGE Burreas onadisae 
1619 012222 012240' 012302’ 012373’ STATCOD: -WORD = 18,28,38,48,58,68,0 


1620 012240 045 116 045 1%:.ASCIZ ‘sNSA Tape Bus Signals in Word 08:' 
1621 012302 045 116 045 2%:.ASCIZ ‘sSNA PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
1622 012373 045 116 045 3%:.ASCIZ ‘sNSA IRESV2<14> IIDENT<11> IHER <8> IONL.<S> IFBY<1>’ 


1623 012464 045 116 045 4$%:.ASCIZ ‘sNSA IRESV1<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O>’ 
1624 012555 045 116 045 5$:.ASCIZ ‘sNSA Tape Bus Signals in Word 09:' 
1625 012617 045 116 045 6$%:.ASCIZ ‘sNSA DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>’ 
1626 . .EVEN 
1627 
1628 
1629 
eee .SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
s¢ 
1632 3 
+074 sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
3 
eae sIMPLICIT INPUTS: 
3 
1637 Fy EXPMSG - EXPECTED MESSAGE BUFFER 
1638 3 RECMSG - RECEIVED MESSAGE BUFFER 
1639 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
eat 3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
g- 
1642 012674 BGNMSG MSGLOOP 
012674 MSGLOOP: : 
1643 012674 012701 012736' MOV @LOOPCOD,.R1 sASCII ADDRESS TABLE 
1644 012700 012100 10$: MOV CR1)+,RO ;DONE ALL MSG LINES? 
1645 012702 001410 BEQ 20% 38R IF YES 
1646 012704 PRINTX RO sPRINT STATUS BIT NAMES 
012704 010046 MOV RO, -(SP) 
012706 012746 000001 MOV @1,-CSP) 
012712 010600 MOV SP ,RO 
012714 104415 TRAP CSPNTX 
012716 062706 000004 ADD 04 ,SP 
1647 012722 000766 BR 10$ 300 ANOTHER MSG LINE 
1648 012724 012700 000012 203: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
1649 012730 004737 014362' JSR PC ,PRMSGE XP sPRINT EXPD/RECV MESSAGE BUFFERS 
1650 012734 NOMSG 
012734 L10014: 
_ 012734 104423 TRAP C$MSG 
1652 012736 012756’ 013031’ 013130’ LOOPCOD: . WORD 1$,2$,3%$,4%,5%,6$,7%,0 
1653 012756 045 116 045 1%:.ASCIZ ‘sNSA Tape Bus Loopback Signals in Word 08:' 
1654 013031 045 116 045 2$:.ASCIZ ‘sNSA PARERR< 15> IRESV2< 14> IRESV1<13>' 
1655 013130 045 116 045 3%:.ASCIZ ‘sNSA IHISP=>IEOT<12> IWRT=>IIOENT<11> IREV =>ICER <10>°' 
1656 013227 045 116 045 4$:.ASCIZ ‘sNSA IWFM =>IFMK<O09> IEDIT=>IHER <08> IFAD *=>ISPEED<07>’ 
1657 013326 045 116 045 5$:.ASCIZ ‘sNSA ITADO=>IRDY<06> ITAD1=>IONL <05> IERASE=>ILOP <O04>’ 
1658 013425 045 116 045 6%:.ASCIZ ‘sSNA IREW =>IDBY<03> IRWU =>IRWD <O2> IFEN =>IFBY <O1>' 
1659 013524 045 116 045 7$:.ASCIZ ‘sNSA IGO =>IFPT<00>’ 
or EVEN 
ena | .SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
3° 
1664 ; 
a sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
3 


1667 Hy 


TSsv3s - GLOBAL ARE 


MSGSUB - PRINT AUR 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 


000012 
014362’ 


007770° 
002230' 
002232’ 
007552" 


GS 


€ SUBSE TEM Pessace ourrER 1°" SEQ 056 


IMPLICIT INPUTS: 


‘ EXPMSG - EXPECTED MESSAGE BUFFER 

‘ RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3 


BGNMSG MSGSUB 

MSGSUB: : 
MOV #10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC , PRMSGE xP sPRINT EXPO/RECV MESSAGE BUFFERS 


E 
L10015: 
T C8MSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
3¢ 


; , 
sPRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
a 

sIMPLICIT INPUTS: 


3 

3 ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

3 ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

F Exp - EXPECTED DATA 

3 RECV - RECEIVED DATA 

eg 
BGNMSG MEMADD 

MEMADD: : 
JSR PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
MOV EXPO ,R1 3GET EXPD DATA 
MOV RECV,R2 3sGET RECEIVED DATA 
a PC, PRIXOR sPRINT EXPD/RECV 

L10016: P 
T Cs8MSG 3 


-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
3° 


iPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
;WHEN THE RAM DATA DOES NOT MATCH. 


} INPUTS: 

: Ra POINTER TO COMMAND PACKET 

; IMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 


IF RAMSIZ*O THEN DEFAULT TO 8. 


Tsvs 
PRAMPKT 


- GLOBAL AREAS 


H5 


MACRO gtr 07-FEB-84 10:56 
- PRINT RAM AND PACKET DATA 


177777 
177777 


177400 


177777 002232’ 
177777 002230° 


002230' 
002232" 


013766' 
000005 


045 


sIMPLICIT OUTPUTS: 
; 


3 RAMSIZ SET 10 0 

; - 

PRAMPKT: 
SA 

@RAMDATA,R1 

CLR Bo 

S$: CMPB CR1I)+, CR4O)> 
BNE 78% 
FORCERROR 78,NOTSSR 
BR 108 

78: MOvVB -1€R1),R5 
“Ov8s -1€R4),R3 
xOR RS.RS 
BIC #177400,R3 
MOvB -10R1),RECV 
mOvB aided EXPO 
PRINTS AMASC, R2,RECV.EXPD,.RS 
MOV a3. CSP) 
MOV EXPO, -( SP) 
MOV RECV, -( SP) 
MOV 2. -(SP) 
MOV @RAMASC, -( SP) 
MOV #5. -(SP) 
MOV SP ,RO 
TRAP CSPNTB 
ADD #14,SP 

10%: INC Re 
TsT RAMSIZ 
BEQ 15% 
CMP R2.RAMSIZ 
BLE t 
BR $ 

15%: CMP R2,08 

20%: BLT Ss 

25%: CLR RAMSIZ 
RTS PC 

RAMASC: .ASCIZ 
-EVEN 
-SBTTL PRMESS 


3? 


° 
sTHIS ROUTINE PRINTS THE CONTENTS OF 


sSAVE R1-RS yp NEXT RETURN 
sDATA FROM THE R 

sINIT BYTE NUMBER” 

s COMPARE yo Se RECEIVED 
sBR IF NO MATCH 


3280 

;GET RECV RAM DATA 
3GET EXPD PACKET DATA 
sXOR EXPO/RECV 

3;LOW BYTE ONLY 

sGET RECEIVED RAM DATA 
;GET EXPECTED RAM DATA 


sUPDATE BYTE _— 
iOEF AULT TO 8.? 

3;6R IF YES 

:D0NE ALL BYTES? 
;68R IF NO 


: 

sDONE DEFAULT NUMBER OF BYTES? 
3;6R IF NO 

3SET DEFAULT RAMSIZ 

sRETURN 


‘SNSA BYTE: SD28A RAM: SOSSA Packet: SO3SSA XOR: 603" 


- PRINT CONTENTS OF MESSAGE BUFFER 


sTHE 7 OR 6 WORD MESSAGE BUFFER RETURNED BY THE 


3;TSV-OS5. 
F 
3; INPUT: 


RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Ri HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: Ri IS IGNORED IF KTENABLE FLAG IS CLEAR 


THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


SEQ 059 


TSVS - GLOBAL 


1 
1770 014052 


1777 014072 
1778 014074 
1779 014076 
014076 
014100 
014102 
014106 
014112 
014114 
014116 
1780 014122 
014122 
014126 
014132 
014134 
014136 
1781 014142 
1762 014144 


1797 014275 
1798 014333 


AREAS MACRO M1115 
PRMESS - PRINT CONTENTS OF MESSAGE BUF 


003132" 


014230' 
0000035 


000010 


014275’ 
000001 


000004 
0171350° 


014333’ 
000003 


045 
045 


PRMESS: 


108: 


208%: 


508: 
PROASC: 


PRIASC: . 


PRASC: 


3? 


07 oo 10:58 
FE 


IS 


PC 
‘SNSA Message 


sSAVE THE REGISTERS 
ADORESS 


sR IF YES 

sSET HIGH ORDER ADDRESS TO 0 
sSAVE HIGH ORDER ADDRESS 

;SHIFT BIT1S TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE NEXT WORD 


sGET PAR FORMAT ADDRESS AB 
;PRINT THE CONTENTS OF 


OVE 28K 


sNUMBER OF THE NEXT 
sD0ONE ALL YET ? 


IF ALL DONE 
FIRST 7 WORDS 


- 
208 PRINT 
~ -EXTF, xST2(R3) EXTENDED FEATUTES ON ? 


sPRINT EXTENDED STATUS WORD 
} RETURN 


Buffer Address = #01805’ 


‘NSA et Buffer Contents: ’ 


‘ ssNSA 


WordsD1sA; #0’ 


PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


a 
sROUTINE TO PRINT EXPECTED ANC RECEIVED MESSAGE BUFFERS 


MEMORY BUFFER 


SEQ 060 


TSv3 - GLOBAL AREA 
PRMSGE KP 


1824 


Ss 
PRINT EXPD/RECV MESSAGE 


MACRO M1113 07-FEB-84 10:56 
BUFFERS 


014542’ 
000003 


014645’ 
000005 


000014 


045 
045 


EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
PRMSGE XP: : 

SAVREG sSAVE R1-RS UNTIL NEXT RETURN 

MOV RO,RS sSAVE NUMBER OF WORDS 

MOV RCVLOADD ,RO iGET RECV LOW ADORESS 

MOV RO,R4 sCOPY LOW ADDRESS 

MOV RCVHIADD ,R1 3GET RECV HIGH ADDRESS 

ROL RO sSHIFT BIT1S TO C BIT 

ROL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 

PRINTX @PRMSGO,R1,R4 ;PRINT MESSAGE BUFFER ADDRESS 

MOV R4,-CSP) 

MOV R1,-CSP) 

MOV »-(SP) 

MOV @3,-C(SP) 

MOV »RO 

TRAP CSPNTX 

#10,SP 

PRINTX @PRMSG1 sPRINT HEADER FOR CONTENTS 

MOV @PRMSG1, -C SP) 

MOV @1,-CSP) 

MOV SP ,RO 

TRAP CSPNTX 

ADO » SP 

CLR RS sNUMBER OF THE CURRENT WORD 

MOV @EXPMSG,,R1 3sGET EXPD BUFFER ADDRESS 

MOV @RECMSG ,R2 3GET RECV BUFFER ADDRESS 
20%: MOV CR1),RO 3GET EXPD 

MOV CR2),R3 3sGET RECV 

XOR RO,R3 3XOR EXPD/RECV 

PRINTX @PRMSG2,R4,(R1)+.(R2)*, R3 

MOV R3,-CSP) 

MOV CR2)+,-CSP) 

MOV (R1)+, -CSP) 

MOV R4,-CSP) 

MOV » CSP) 

MOV o5,-C 

MOV SP ,RO 

TRAP CSPNTX 

ADO #14,SP 

INC Ra sNUMBER OF THE NEXT 

CMP R4,RS sDONE ALL YET? 

BGE 50$ :8R IF YES 

BR 20$ 300 ANOTHER 
50$: RTS PC sRETURN 
PRMSGO: .ASCIZ ‘sNSA Message Buffer Address = 801805" 
PRMSG1: .ASCIZ ‘sNSA Mess Buffer Contents 
PRMSG2: -ASCIZ ‘sNSA WORD *8D28A EXPD: SOGuA RECV: S068A_ XOR: 


RO 


J5 


- NUMBER OF WORDS IN BUFFER 


IMPLICIT INPUTS: 


SEQ 061 


KS 


TSv3 - GLOBAL AREAS 3 oT. FEB-84 10:58 SEQ 062 
PRMSGEXP - PRINT EXPD/RECV SSAGe BUF ERS 
teas .EVEN 
1845 -SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
1844 3¢ 
18645 3 
1846 sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
po ry ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
1 Fy 
oe ; RO - NUMBER OF BYTES IN BUFFER 
1 Hy 
aoee s IMPLICIT INPUTS: 
1 H 
1853 3 EXPMSG - EXPECTED MESSAGE BUFFER 
pin 3 RECMSG - RECEIVED MESSAGE BUFFER 
i- 
1856 014732 PRBYTEXP: : 
1857 014732 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1858 014736 010005 MOV RO,RS sSAVE NUMBER OF BYTES 
1859 014740 005037 002316’ CLR PRMNO sINIT ERROR COUNT 
1860 014744 005004 CLR R4 sNUMBER OF THE CURRENT BYTE 
1861 014746 012701 002320’ MOV @EXPMSG ,,R1 :GET EXPD BUFFER ADDRESS 
1862 014752 012702 002464’ MOV @RECMSG ,R2 ;GET RECV BUFFER ADDRESS 
1863 014756 111100 20%: MOVB CR1),RO ;GET EXPD BYTE 
1864 014760 042700 177400 BIC 6tC<377>,RO ;CLEAR UPPER BYTE 
1865 014764 110037 015300’ MOvVB RO ,PRBEXP sSAVE FOR ERROR REPORT 
1866 014770 111203 MOVB (R2),R3 ;GET RECV BYTE 
1867 014772 042703 177400 BIC @tC<377>,R3 ;CLEAR UPPER BYTE 
1868 014776 110337 015302’ MOVB R3,PRBREC sFOR ERROR REPORT 
1869 015002 xOR RO,R3S 3XOR EXPD/RECV 
1870 015012 122122 CMPB CR1)+,CR2)+ sEXPD = RECV? 
1871 015014 001431 BEQ 30% 3B8R IF YES 
1872 015016 005237 002316' INC PRMNO sUPDATE ERROR COUNT 
1873 015022 023727 002316‘ 000010 CMP PRMNO, 8. sPRINTED 8? 
1874 015030 101023 BHI 30$ 3;68R IF YES 
1875 015032 27s: PRINTX @PRBMSG,R4, PRBEXP, PRBREC RS 
015032 010346 MOV R3, -(SP) 
015034 013746 015302’ MOV PRBREC, -( SP) 
015040 013746 015300’ MOV PRBEXP , -( SP) 
015044 010446 MOV R4,-CSP) 
015046 012746 015146’ MOV @PRBMSG, -( SP) 
015052 012746 000005 MOV oS, -(SP) 
015056 010600 MOV SP RO 
015060 104415 TRAP CSPNTX 
015062 062706 000014 ADD @14,SP 
1876 015066 FORCEXIT 50$ 3880 
1877 015076 000404 BR 35$ ;880 
1878 015100 30$ 
1879 015100 FORCERROR 27$,NOTSSR ;8a0 
1880 015110 35$: 3880 
1881 015110 005204 INC R4 sNUMBER OF THE NEXT 
1682 015112 020405 CMP R4,R5 sDONE ALL YET? 
1883 015114 002001 BGE 50% ;BR IF YES 
1884 015116 000717 BR 20$ 300 ANOTHER 
1885 015120 50$: PRINTX @PRBTOT,PRMNO ‘PRINT TOTAL ERROR COUNT 
015120 013746 002316’ MOV PRMNO, -( SP) 
015124 012746 015253’ MOV OPRBTOT, -(SP) 


015130 012746 000002 MOV 2, -(SP) 


TSV3_- GLOBAL AREA 
PRBYTEXP - PRINT E 


015134 
015136 
015140 
015144 


015146 
015233 


015300 
015302 


0 
015310 


015312 
015312 
015312 
015316 
015316 
015316 


010600 
104415 
062706 000006 
000207 


045 116 
045 116 
000000 
000000 


004737 007552’ 


104423 


004737 007422' 


104423 


RROR BYIES IN EXP/REG MESSAGE BUFFER 


MOV 
TRAP 
ADO 
RTS 


045 PRBMSG: .ASCIZ 
045 PRBTOT: .ASCIZ 


-EVEN 
PRBEXP: .WORD 
PRBREC: .WORD 


. SBTTL 
3° 


3 

sPRINT ROUTINE 
: 

3; INPUTS: 

3 


: R1 
: Re 
; 
. 


BGNMSG 
EXPREC:: 

JSR 

ENOMSG 
L10017: 

TRAP 


- SBTTL 
3° 


é 
sPRINT ROUTINE 
; 


; 
; INPUTS: 
R1 


é 

; R2 
h 

ge 


. SBTTL 


Lad 


06 
PC sRETURN 


‘SNSA =60BYTE OSD2SA EXPD: SO38A RECV: SOS8A 


‘aNSA NUMBER OF BYTES IN ERROR = D2‘ 


3EXPO 
sRECV 


EXPREC - PRINT EXPD/RECV WORD DATA 


oo 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 
PC ,PRIXOR sPRINT THE DATA 


C$MSG 


EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 
PC ,PRIBXOR sPRINT THE DATA 


C$MSG 


RAMERR - PRIPMT RAM AND PACKET DATA 


SEQ 063 


M5 


TSv3 - GLOBAL AREAS MACRO M1113 07-FEB-84 10:58 SEQ 064 
RAMERR - PRINT RAM AND PACKET DATA 
1934 3° 
1935 3 
333 sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
9 3 
1938 ; INPUTS: 
1939 Hy 
por 3 R4 POINTER TO COMMAND PACKET 
1941 3 
ieee ; IMPLICIT INPUTS: 
1 
1944 ; RAMDATA DATA AS READ FROM THE RAM 
1945 : RAMSIZ NUMBER OF BYTES IN PACKET 
a r IF RAMSIZ=0O THEN DEFAULT TO 8. 
194 3 
1948 sIMPLICIT OUTPUTS: 
1949 Hy 
1950 ry RAMSIZ SET TO O 
1951 i- 
1952 
1953 015320 BGNMSG RAMERR 
015320 RAMERR: : 
1954 015320 004737 013606’ JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 
1955 015324 E SG 
015324 L10021: 
015324 104423 TRAP C$MSG 
1987 
fone .SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
3¢ 
1960 ; 
44 s;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
F 
1963 : INPUTS: 
1964 : 
Dar : R4 POINTER TO COMMAND PACKET 
3 
ieee : IMPLICIT INPUTS: 
F 
1969 : RAMDATA DATA AS READ FROM THE RAM 
1970 3 RAMSIZ NUMBER OF BYTES IN PACKET 
1971 7 IF RAMSIZ=O THEN DEFAULT TO 8. 
1972 ; ERRHI HIGH ORDER TEST ADDRESS 
‘ova ; ERRLO LOW ORDER TEST ADDRESS 
F 
1975 sIMPLICIT OUTPUTS: 
1976 ; 
1977 ; RAMSIZ SET T0 0 
1978 3- 
1979 
1980 015326 BGNMSG RAMTADD 
015326 RAMTADD: : 
1981 015326 004737 010104’ JSR PC,PRITADD sPRINT TEST ADDRESS 
1982 015332 004737 013606' JSR PC, PRAMPKT sPRINT RAM/PACKET DATA 
1983 015336 ENDMSG 
015336 L10022: 
015336 104423 TRAP C$MSG 


- PRINT 


042701 
042702 
004737 
004737 


104423 


012746 
012746 


TESt ADDRESS, RAAT AND 


177400 
177400 
007676’ 
007552’ 


015410’ 
000001 


000004 
0075S2' 


116 


045 


re Ta 


3¢ 


; 

sPRINT ROUTINE 
i 

s INPUTS: 


L10023: 


. SBTTL 
3; 


i 
;PRINT ROUTINE 
;AND TIMER A,B 


+ 

; INPUTS: 

" 

: R1 

: Ro 

3 o . 
BGNMSG 

TIMEXP: ;: 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
JSR 
ENOMSG 

L10024: 
TRAP 


TIMSGO: .ASCIZ 
-EVEN 


NS 


RAMEXP - PRINT RAM EXPD/RECV DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


CONTROLLER RAM ADDRESS 


RAME XP 


@tC<377>,R1 
@tC<377>,R2 
PC ,PRIRAM 
PC ,PRIXOR 


C$MSG 


;SAVE EXPD RAM DATA BYTE 
;SAVE EXPD RAM DATA BYTE 
;PRINT TRE RAM ADDRESS 


;PRINT THE DATA 


TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 


HEADER MESSAGE 


RECEIVED DATA 
EXPECTED DATA 
TIME XP 
@TIMSGO 


@TIMSGO, -( SP) 
#1, -(SP) 


C$MSG 


sPRINT HEADER 


sPRINT THE DATA 


SEQ 065 


‘sNSA TIMER A STATUS IS IN TT 3esNSA TIMER B STAIUS IS IN BIT 2° 


BADSSR 


- PRINT TSSR ERRORS ON DATA 


TRANSFERS 


TSv3 
BADSSR 


GLOBAL AREA 
- PRINT TSSR ERRORS ON 


015510 


B6 


MACRO ahh 13 auarthae 10:58 
DATA TRANSFERS 


sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
3 
s INPUTS: 


’ RL CONTENTS OF TSSR 
: RO DATA WRITTEN (8 BITS) 
a 
F 
BADSSR 
BADSSR:: 
MOV R2,-(SP) sSAVE DATA TRANSFERRED 


BIC #177400 ,R2 
PRINTS @XFERASC,R2 
MO R2, -( SP) 
MOV @2, -(SP) 


sGET JUST ONE BrTE 


MOV SP RO 

TRAP CsPNTB 

ADO 6, SP 

MOV (SP )+,R2 sRESTORE R2 

JSR PC .PRITSSR sOECODE TSSR CONTENTS 
ENOMSG 


110025; 
AP C$mSG 
XFERASC: -ASCIZ ‘NSA Dete Trensferred = 603' 


-SBTTL GLOBAL SUBROUTINES SEC1ION 


t Td 

i THE oe SUBROUTINES SECTION — THE SUBROUTINES 
s THAT ARE USED IN MORE THAN ONE T 

gee 


-SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
| ad 
i 
sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
s68Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
3 
: INPUTS: 
; RS ADDRESS OF FIRST REGISTER 
8 
sOUTPUTS: 
3 
‘ Ru CONTENTS OF TSSR, IF ERROR 
: CARRY SET IF INIT WAS OKAY 
: CLEAR IF FATAL ERROR 
é 
sCALLING SEQUENCE : 
i 
‘ 


MOV @ADDRESS,RS 


SEQ 066 


SBF Ei 1 OS “GREY rac ze OP cOATAGLL EA FEB “84 10:58 


2079 
2080 


015726 


012765 
004737 


100000 
174077 


000200 
079040 


177761 
000016 


SOF INIT: 


S$: 
108; 


3° 


as 


ERROF 


: 
Ss 


C6 


CONTINUE 


oo, —-? 
PC ,WAITF 
TSSRCRS), RO 


RO,R 
Ore <HIADORIOFL>, R4 


@SSR!INBA,R4 
R4,RO 

5s 

108 


PC 


sREPORT FATAL ERROR 


1 SAVE THE REGISTERS 

s OO THE INIT. 

s WAIT FOR SSR 

1GET THE TSSR REGISTER 
sTSSR CONTENTS 


3R4 HAS EXPECTED CONTENTS 
sONLY EXPECTED BITS SET ? 
sBRANCH IF OKAY 

sCLEAR THE CARRY FOR ERROR 
3GO TO EXIT 

sSET THE CARRY BIT 

sRETURN TO CALLER 


CHKAMB - CHECK TSSR FOR AMBIGUITY 


3 
sTHIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
sFOR AMBIGUITY 


S 
3s INPUT; 


}OUTPUT: 2 


CHKAMB : 


5%: 


RO 


RO 
CARRY 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


RO,R4 
osc ,RO 
S$ 


3B 
@*C<NBALOFL !SSRIHIADOR > RO 


108 
$81T5,RO 


orc TERCLS ,R4 
R4,016 

408 

453% 


sSAVE THE ane REGISTERS 


sANY OTHER BITS SET ? 
sMUST BE AN ERROR 

sRETURN WITH SUCCESS 

1IS READY BIT SET ? 

sBRANCH IF READY BIT IS SET. 
sIS FATAL ERROR BIT SET ? 
sERROR IF NOT 

sCLEAR ALL BUT TERMINATION CODE 
sALL THREE BITS MUST BE SET 
sERROR IF NOT SET 

sOK IF ALL ARE SET 


SEQ 067 


D6 


Chains OBA R Ese ror ARBPcttHts 07 FEB-84 10:58 


2139 015742 
2140 015744 
2141 015746 
2142 015750 
2143 015752 


2158 015754 
2160 015755 


2163 015756 
2165 015760 


000200 
000001 


152737 


000340 


000001 
015755’ 
000001 


000001 


000002 


002222" 
015754' 
015755’ 


108; 


403: 


45$;: 
508: 


DEF AU 


BIT @BITS,RO 11S FATAL ERROR BIT SET ? 
BEQ 45% sERROR IF BIT IS SET WITH SSR 
BIT @BIT2!BIT1,RO 41S THIS A FUNCTION REJECT 
BNE 45% sBR, IF TSSR IS OK 

oe S08 sAMBIGUOUS CONTENTS 

SEC sSHOW SUCCESS - NO AMBIGUITY 
RTS PC sRETURN TO CALLER 


-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 
T DISPLAY INTERRUPT HANULERS. 


IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 


:; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
é 


IOKCKIN=BIT7 s DON’T CHECK FOR BAD INTERRUPTS -- TEST WILL. 


IOKSTP*BITO s EXPECT “STOP” INTERRUPT. 


3 
s INTERRUPT MASK “sy rs arte INTERRUPTS 


INTMASK; s 

s INTERRUPT FLAG -- SAYS WE GOT ONE CIF POSITIVE) 

INTFLAG: -BYTE 0 

sSAVED INTERRUPT VECicR: 

INTVEC: .WORD 0O 

sSAVE CPU PC 

INTCPC: .WORD 

sSUBROUTINE TO oe INTERRUPTS: 

ENAINT: MOV -(SP) sSAVE RO 
MOV Tec. RO 3GET POINTER TO VECTORS 
MOV @INTR, CRO)> 3;SET UP INTERRUPT VECTOR 
MOV @PRIO7,(RO)> 
MOV (SP )+,RO sRESTORE RO 


MOV (SP), -(SP) 


MOV @0,2¢SP) sSET CPU TO LEVEL O 


RTI 
;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV (SP), -(SP) 

MOV @PRIO7,2(SP) 

RTI 

.SBTTL INTR - INTERRUPT HANDLERS 
le BGNSRV INTR ;DEFINE INTERRUPT ENTRY 

“mov @1, INTRECV sSET FLAG TO SHOW INTERRUPT RECEIVED 


CLRB INTFLAG sCLEAR FLAG TO SAY WE GOT INTERRUPT 
BITB @IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 

BNE 1$ :BR IF YES 

BISB @IOKSTP, INTFLAG TNO SET THE ERROR FLAG. 


sSAVE REGISTERS, MSG BUFFER, ETC. 


SEQ 068 


E6 


TSV3 - GLOBAL AREAS MACRO M1113 07-FEB-84 10:58 SEQ 069 
INTR - INTERRUPT HANDLERS 
2192 016056 1$: 
2193 016056 ENOSRV 
016056 L10026: 
08 016056 000002 RTI 
Stes -SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
1 3 
etoe ; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
1 
2199 3; INPUTS 
2200 8 
soe8 5 RS ADDRESS OF FIRST DEVICE REGISTER 
3 
2203 ;OUTPUTS 
2204 3 
2205 3 RO CONTENTS OF LAST TSSR READ 
2206 Fy CARRY SET - READY BIT SET 
= 3 CLR - TIMEOUT WAITING FOR READY 
3 
2209 016060 000401 WAITF:: BR 1% sNOP WHEN SUPER FIXED 
2210 016062 BREAK : DO A SUPVSR BREAK FIRST. 
016062 104422 TRAP CsBRK 
2211 016064 012746 011000 1$: MOV #11000, -(SP) 325-APRIL-83 REV B - 1100 MSEC TIMER 
2212 016070 016500 000002 2s: MOV TSSRC(RS),RO sREAD THE TSSR REGISTER 
obey 016074 105700 TSTB RO sTEST FOR READY BIT SET 
2215 016076 100420 BMI 33 : EXIT ON STOP FLAG. 
2216 016100 DELAY 1 3 WAIT 100 USEC 
016100 012727 000001 MOV @1,(PC)>+ 
016104 000000 . WORD 
016106 013727 002116' MOV LSDLY,(PC)>+ 
016112 000000 -WORD O 
016114 005367 177772 DEC -6(PC) 
016120 001375 BNE .-4 
016122 005367 177756 DEC -22(PC) 
016126 001367 BNE .--20 
2217 016130 005316 DEC CSP) sREOUCE DELAY COUNT 
2218 016132 001356 BNE 2s sRETRY UNTIL TIMER EXPIRES 
2219 016134 000241 cLc ; C0, ogee STILL RUNNING. 
2220 016136 000401 BR 4s a ee HUNG - UP AFTER 300 MSEC. 
2221 016140 000261 3$: SEC Cc = CONTROLLER IS STOPPED. 
2222 016142 005326 4$; OEC (SP )-+ RESTORE STACK WITHOUT CHANGING CARRY BIT 
Sone 016144 000207 RTS PC 
2225 -SBTTL CHKTSSR - CHECK TSSR FOR READY 
2226 
2227 3° 
2228 ; 
2229 ;THIS ROUTINE WAITS FOR READY IN THE TSSR 
tag sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
F 
2232 3; INPUT: 
2233 Hy 
to : RS ADDRESS OF CSR REGISTERS 


; 
2236 sOUTPUT; 
; 


F6 
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CHKTSSR - CHECK TSSR FOR READY 
2238 : RO CONTENTS 4 TSSR 
2239 : CARRY SET - OKAY 
2240 3 CLR - NOT READY AMBIGUOUS, OR SC SET 
2241 3 
2242 s- 
2243 
2244 016146 CHKTSSR: 
2245 016146 004737 016060’ JSR PC ,WAITF sWAIT FOR READY 
2246 016152 103014 Bcc 20$ ;8RANCH IF TIME OUT 
2247 016154 004737 015654’ JSR PC, CHKAMB sTSSR AMBIGOUS? 
2248 016160 103006 Bcc 10$ 3;8R IF YES 
2249 016162 032700 100000 BIT oSC RO sSPECIAL CONDITION SET? 
2250 016166 001405 BEQ 15$ 3;6R IF 
2251 016170 032700 074000 BIT @<SCE!BIE!RMR!INXM>,RO tANY ERROR BITS SET? 
2252 016174 001402 BEQ 15$ 3BR IF NO 
2253 016176 000241 10$: cLc }SET FAILURE 
2254 016200 000401 BR 20$ 5 
2255 016202 000261 15$: SEC sSET SUCCESS 
34 016204 000207 208: RTS PC sRETURN TO CALLER 
es4 -SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 
2260 ; * ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
2261 ; ON RETURN, IF “C” = 1, (R1) = NEXM ADDRESS. 
2262 ; “C” = 0, ALL ADDRESSES OK. 
2263 : 
2264 sCALL: MOV ADR1,R1 
2265 3 MOV ADR2,R2 
2266 : JSR PC,NXM 
24 3 RETURN ;TEST “C” AND PROCEED. 
3 
2269 016206 012737 016242' 000004 XNXM: MOV 02% ,804 3; SET BUSERR VECTOR. 
2270 016214 012737 000200 000006 MOV OPRIO4 , 806 
2271 016222 005003 CLR R3 3sFLAG. 
2272 016224 000241 cLc ;CLEAR THE CARRY FOR NO NXM FOUND 
2273 016226 005711 1$: TST (RL) sTEST THE ADDRESS(ES). 
2274 3IF ANY TRAP, CONTINUE AT 23. 
2275 016230 020102 CMP R1,R2 ; OTHERWISE, CONT INUE HERE. 
2276 016232 001407 BEQ 3$ 3;6R IF FINISHED (NO NEXM’S). 
2277 016234 062701 000002 ADD © #2,R1 3SET NEXT ADDRESS... 
= 016240 000772 ER 1$ 3..-AND CONTINUE, 
2280 016242 005103 2s: COM R3 ;GOT ONE, SET FLAG... 
2281 016244 012716 016252’ MOV 033,(SP) 
2282 016250 000002 RTI ;...AND DISMISS INTERRUPT... 
2283 016252 3$; CLRVEC 04 3...AND GIVE BACK THE VECTOR. 
016252 012700 000004 MOV 04,RO 
016256 104436 TRAP CsCveEc 
2284 016260 005703 TST R3 3;DID WE CATCH ONE ?? 2 
2285 016262 001401 BEQ 04 sNO, “C" = C, S”TP NEXT. 
2286 016264 000261 SEC sYES, "C” = 3, ‘«1) = NEXM ADDR. 
2287 016266 000207 RTS PC 
2288 
2289 
2290 
2291 


2292 -SBTTL TSTLOOP - CHECK ITERATION COUNT 


{sys - GLOBAL AREA 
TLOOP 


016270 
016270 
016274 
016276 
016302 
016304 
016310 
016312 
016314 
016316 
016320 


016322 
016322 
016324 
016330 
016334 
016340 
016344 
016350 
016352 
016356 
016360 
016362 


005737 
006 


052760 


002166' 
002202" 
002214’ 


003152’ 
016570' 
005602" 
015754’ 
002200' 


003112" 


160000 003174’ 
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5 M1113. 07-FEB-84 10:58 
CHECK ITERATION COUNT . SEQ 071 


SUBROUTINE TO EXECUTE TEST ITERATIONS. 
EXIT WITH “C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET 8Y “BEGIN. TEST” MACRO. 


i 
; 
; 
; 
; 
; CALL: LOOPTO ARG 
; 

T 


STLOOP: 
TsT NOITS 3; ITERATIONS INHIBITED? 
BNE 1$ ; YES. 
TST Qvp 3: NO. 
BMI 1$ sLOOPS DISALLOWED IN QUICK PASS. 
a sags ; BUMP LOOP COUNTER. 
18; a - ;LOOP DISALLOWED, OR DONE. 
es SEC sLOOP ENABLED. 
3$ RTS PC 


-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


° 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 

IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 


RO POINTER TO TEST 10 ASCIZ STRING 
OUTPUT: 

RS ADDRESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
SIDE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


TSTSETUP: : 
MOV RO, -(SP) sSAVE THE TEST ID MESSAGE 
CLR SIFLAG s CLEAR “SOFT INIT” FLAG 
CLR ERRK s CLEAR LOCAL ERROR COUNTER. 
CLR EXTA s CLEAR ERROR EXTENSION FLAG. 
CLRB INTMASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
MOV UNITN,RO ; GET THE eer NUMBER, 
ASL RO F AND MAKE IT A WORD OFFSET. 
TST NODE V ; DID STARTUP FIND THE DEVICE? 
BEQ 4$ ; BR IF YES 
BPL ; BR IF NOT IOL 


3% E 
BIS #160000, ,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 


Sv3 eattcROM -FEB-84 10:58 7 
TeYseTus” OOORINT 1 Test wane ano tat Exnon PommTe — 
2350 016 RROF NXR,NXRERR § ; NO DEVICE HERE -- PRINT IT 
83338 104455 hae bithot 
016372 000001 ’ i 
016374 003732" “WORD  NXR 
016376 546' "WORD NXRERR 
2351 016400 000407 eR 28 
2352 016402 052760 160001 003174' 3%: BIS #160001 ,ERTABL(RO) FLAG ERROR IN THE ERROR TABLE 
2353 016410 2, NOINIT ; DEVICE NOT IDLE 
016410 104455 TRAP CSERDF 
016412 .WORD 2 
016414 004327" ; NOINIT 
016416 000000 ‘WORD 0 
354 016420 012737 177777 003110° 2%: MOV @-1,DUFLG ; DROP THE UNIT 
2355 016426 DODU ss UNIT 
016426 013700 002200’ UNITN, RO 
016432 104451 TRAP DOoU 
2356 016434 DOCLN ; ABORT THE PASS 
016434 104444 TRAP CSOCLN 
2357 016436 000423 BR S$ 
2359 016440 4s: RFLAGS RO ; GET THE OPERATOR FLAGS. 
016440 104421 TRAP CSRFLA 
2360 016442 032700 001000 BIT @PNT RO ; PRINT THE TEST NUMBERS? 
2361 016446 001412 BEQ 18 ; BR IF NO 
016450 011600 MOV (SP),RO iGET THE ID MESSAGE 
2363 016452 PRINTF @TNAM,RO :OISPLAY THE TEST ID 
016452 010046 MOV RO, -( SP 
016454 012746 016516’ MOV @TNAM, -(SP) 
016460 012746 000002 MOV 02, -(SP) 
016464 010600 MOV “RO 
016466 104417 TRAP = CSPINTF 
016470 062706 ADD 06.SP 
2364 016474 005237 002212° 18: INC TSTCNT ; BUMP TEST COUNTER. 
2365 016500 SETPRI IPRI ;PRIORITY THAT OF DEVICE 
016500 013700 002210° MOV IPRI,RO 
016504 104441 TRAP C$SPRI 
2366 016506 005726 S$: TST (SP )« ;FIX UP THE STACK 
2367 016510 013705 002204° MOV CSRADOR RS ; ADDRESS OF TSV REGISTERS ON UNIBUS 
2368 016514 000207 RTS PC 
2369 016516 045 123 045 NAM: .ASCIZ ‘SSSTSA Test’ 
ze me 
2572 .SBTTL TSTEND - PRINT ERRORS RECEIVED 
a 
2374 ; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
2375 IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 
2377 016532 TSTEND: RFLAGS RO 
016532 104421 TRAP C$RFLA 
2378 016534 030027 020000 BIT RO, eIER 
2379 016540 001412 BEQ 18 ; BR IF “IER” NOT SET. 
2380 016542 PRINTF @€SUM,ERRK ; PRINT ERROR COUNT. 
016542 013746 016570° MOV ERRK, -(SP) 
016546 012746 016572° MOV @€ SUM, -(SP) 
016552 012746 000002 MOV 02, -( SP) 
016556 010600 MOV 


16 
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TSTEND - PRINT ERRORS RECEIVED . 


016562 062706 000006 ADO 06 .SP 
yoo4) 016566 000207 18: RTS PC 
2383 016570 000000 ERRK: 0 + LOCAL ERROR COUNT. 
23864 016572 045 101 040 ESUM: -ASCIZ /#A SOSA ERRORS 


E / 
2385 016611 105 122 122 EMAXDU: — ZERROR LIMIT REACHED -- DROPPING UNIT/ 


toe -SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
3? 
i ae s ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
ge@ 
2392 016656 005237 016570’ INCERK: INC ERRK s INCREMENT LOCAL ERROR COUNT 
2393 016662 010046 MOV RO, -(SP) s SAVE RO 
2394 016664 013700 002200' MOV UNITN,RO s GET UNIT NUMBER, 
2395 016670 006300 ASL RO s ..- AND MAKE IT A WORD OFFSET. 
2396 016672 062700 003174' ADD @ERTABL ,RO s RO GETS ADDRESS OF ERROR TABLE ENTRY. 
2397 016676 005210 INC (RO) s INCREMENT THE DEVICE ERROR COUNT 
2398 016700 032710 007777 BIT @7777,CRO) s OID WE OVERFLOW THE FIELD? 
2399 016704 001001 BNE is s BR IF NO. 
2400 016706 005310 DEC (RO) s YES -- BACK IT Ww TO 7777. 
2401 016710 012600 1%: MOV CSP )+,RO s RESTORE RO 
oe | 016712 000207 RTS PC ; RETURN TO CALLER. 
2404 016714 010046 CKEMAX: MOV RO, -( SP) s SAVE RO 
2405 016716 013700 002200’ MOV UNITN,RO s GET UNIT NUMBER 
2406 016722 006300 ASL RO s+ ... AND MAKE IT A WORD OFFSET 
2407 016724 016000 003174’ MOV ERTABL(RO),RO ; GET ERROR TABLE as 
2408 016730 042700 170000 BIC #170000 ,RO s EXTRACT ERROR COUNT FIELD 
2409 016734 020037 002172' CMP RO, GERRMAX s IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
2410 016740 103004 BHIS is s 6R IF YES 
2411 016742 023737 016570’ 002170° CMP ERRK ,LERRMAX s IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
2412 016750 103417 BLO 2s s BR IF NO 
2413 016752 1%: RFLAGS 3; GET OPERATOR FLAGS 
016752 104421 TRAP CSRFLA 
2414 016754 032700 000040 BIT @IDu,RO ; Is a a INHIBITED? 
2415 016760 001015 BNE 2s 3 BR IF YE 
2416 016762 012737 177777 003110° MOV @-1,0UFLG 3 NO DROP THE UNIT 
2417 016770 4, EMAXDU 
016770 104455 TRAP CSERDF 
016772 WORD 4 
016774 016611’ -WORD EMAXDU 
016776 WORD 
2418 017000 o000u UNITN 
017000 013700 002200° UNITN,RO 
017004 104451 TRAP 
2419 017006 DOCLN 
017006 104444 TRAP CsOCLN 
2420 017010 012600 2s: MOV (SP )+,RO 3 RESTORE RO 
por] 017012 000207 RTS PC ; RETURN TO CALLER 
ory -SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
s* 
ore s CHECK IF UNIT SHOULD BE DROPPED 
S° 
2427 017014 010046 CKDROP: MOV RO, -¢ 


SP) 
2428 017016 FORCERROR 1$,NO'TSSR 


TSVS - GLOBAL 
CKDROP - CHE 


2429 017026 


017070 
S2 017074 
017076 
017104 


017106 
017112 
017114 
017116 
017120 
017126 


AREAS 
Cx IF 


UNIT 


012737 


013700 
104451 


104444 


012600 
000207 


004737 
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SHOULD BE DROPPED 


000040 


177777 
002200’ 


015604' 


003150' 


003110° 


177572 


177572 


J6 


SEQ 074 
RFLAGS RO 
TRAP CSRFLA 
BIT @IDuU,RO 
BNE 1s 
MOV (SP),RO 
MOV @-1,0UFLG 
000u UNITN 
MOV UNITN,RO 
TRAP Cso00u 
DOCLN ;ABORT THE PASS 
TRAP CSOCLN 
18: MOV (SP )+,RO 
RTS PC 
.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
ry 
: SUBROUTINE - DETERMINE CONFIGURATION OF TSUOS SYSTEM. 
3 
CONFIG: 
JSR PC. SOF INIT 
RTS PC 
.SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
; SUBROUTINE - ENABLE MEM MGT. 
KTON: TST KTFLG 3 GOT KT? 
BEQ 1% 3: NO. 
MOV #1,SRO 3; YES. ENABLE KT11. 
18: RTS PC 
; SUBROUTINE - DISABLE MEM MGT. 
<TOFF : TST KTFLG ; GOT KT11? 
BEQ 1$ 3s NO. 
NOP 
NOP 
MOV #0, SRO ; OISABLE KT. 
1%: RTS PC 
SBTTL SETMAP - SETUP PAR6 MAPPING 


3° 


3 

;THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
sAN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
sIS RETURNED BIASED TO PARE. 


F 

; INPUTS: 

$ 

: RO HIGH ORDER ADDRESS BITS 
; R1 LOW ORDER ADDRESS BITS 


° 
sOUTPUTS;: 


TSsv3 
SE 


017150 
017130 
017134 
017140 
017142 


017174 


003130° 


017106’ 


003122’ 
003124' 


003130' 
017070’ 
003150° 
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’ 

3 

3 

3 

SE TMAP ; 

BR 

108 cLc 
15$: RTS 


RO 
CARRY 


OFFSET INTO BL 


K6 


SET SUCCESS 
ERROR 


CLR I 


OCK WITH PAR6 BIAS (I.E. THE ADDRESS) 


sSAVE R1-R4 UNTIL NEXT RETURN 
ABOVE 28K? 


sSYSTEM HAVE 
3;6R IF NO 
sSAVE LOW ORDER BITS 


SEQ 075 


sCONVERT WORD ADDRESS TO 32W BLOCKS 


sMAKE IT DOUBLE PRECISION 


sALINE FOR LOWER 4K BOUNDARY 
sHIGHER THAN EXISTING MEMORY? 


;6R IF YES 


sSETUP MAPPING REGISTER PARG6 


sSETUP DISPLACEMENT IN PAGE 
3ADD IN PAR6 BIAS 

sRETURN IN RO 

sSET SUCCESS 


o 
;SET FAILURE 
;RETURN 


-SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


; 
; 
; 
3 INPUTS: 
; 
; 
; 
; 
; 
; 
; 
; 
i> 
i 
F 


ILLMEM: 


10%: MOV 


KTFLG 
OUTPUTS: 
NONE 


st * BACKGROUND PATTERN 


FILL MEMORY WITH A BACKGROUND PATTERN 


* FIRST "OCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF » 26K. 


PST32W,R1 
6 


sSAVE R1- o UNTIL NEXT RETURN 
sOISABLE 

COPY Test PATTERN 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
sSTORE A BACKGROUND WORD 

sD0NE ALL MEMORY IN FREE SPACE? 
3BR IF NO 


; YES. ENABLE KT. 
;HIGH ORDER ADDRESS START 


sGET »>28K START ADDRESS (IN 32W BLOCKS) 


TSv3_- GL 
FILLMEM - 


017476 


017500 
017500 
017504 
017506 
017512 


017150' 
160000 


003142' 


177572 
177761 
022704 000016 


003144’ 
172354 
012737 000020 


017354’ 
017106’ 


010003 
004737 017106' 
013701 003122’ 


172354 


007600 


172516 
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L6 


@16,R4 
SO 


CMPMEM 


;CLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PARG MAPPING REGISTER 
sSTORE TEST PATTERN IN >28K ADDRESS 
sEND OF PAR6 MAPPING AREA? 
BR IF NO 
;BACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >26K. 
;GET VALUE FROM MEMORY SIZER 
sONLY 18 BITS PASS 
NO MEMORY ? 


;NO KEEP GOING 

3GET SRO CONTENTS 

;CLEAR ALL BUT PAGE NUMBER 
;SEE IF PAGE 7 

sEXIT IF THERE 

sPROCESSOR TYPE B 

zNO KEEP GOING 

sREACHED 18 BITS? 


;YES 

3NO KEEP GOING 

;SET MMU RELOCATION 
sKEEP GOING ON ETC. 
; DISABLE KT. 


- COMPARE MEMORY TO BACKGROUND PATTERN 


3¢ 
; COMPARE MEMORY WITH A BACKGROUND PATTERN 


RO = BACKGROUND PATTERN 


= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
* SET TO HIGHEST MEMORY LOCATION IF > 28K, 


- SET IF NO ERROR 


- CLR IF ERROR 


- ERROR HIGH ADDRESS 
- ERROR LOW ADDRESS 


- EXPECTED DATA 
- RECEIVED DATA 


RO,R3S 
PC ,KTOFF 


cLc 
ROL 
ROL 
.ENOR 
JSR 

30$: MOV 
CMP 
BLO 
SUB 
ADD 
MOV 
BIC 
CMP 
BEQ 
TsT 
BEQ 
MOV 
BIC 
CMP 
BEQ 

35%: TST 
BEQ 
CMP 
BHIS 
BR 

40$: MOV 

45$: JMP 

508: JSR 

55$: RTS 
.SBTTL 

a 

; INPUTS: 

3 

t 

: FREE 

; KTFLG 

Hy 

3; OUTPUTS: 

o 

: CARRY 

; CARRY 

a 

3; IMPLICIT OUTPUTS: 

3 

; ERRHI 

F ERRLO 

3 EXPD 

F RECV 

s- 

CMPMEN: 
SAVREG 
MOV 
JSR 
MOV 


FREE ,R1 


;SAVE R1-RS UNTIL NEXT RETURN 
;COPY TEST PATTERN 

sDISABLE KT 

;GET FIRST FREE LOCATION 


SEQ 076 


TSv3 
CMPME 


eee 


“REMORY' 10 BACKGROUND PATTERN *7*>° 


003124’ 


002236' 
002234' 
002230' 
002252" 


003130’ 
017070' 
003150’ 


000177 


017130' 


000002 
160000 


020000 
000200 
172354 


017106' 


017106’ 


172354 
003130’ 


108: 


15$: 


32$: 


3¢ 


-SBTTL REGSAV 


: 
sROUTINE TO 


;SAVE R1 THROUGH RS ON THE STACK 


FRESIZ,R2 
R3,(R1) 


(R4), RECV 
Sos 

#2,R1 

RO 

#2,R4 


R4, #160000 
30$ 


#20000 ,R4 


9200 , BOK IPAR6 
QOKIPARG ,KTFLG 


30$ 
PC ,KTOFF 


60% 
PC, KTOFF 
PC 


; 
sCALLING SEQUENCE : 


sSIZE OF FREE SPACE BELOW 28K. 

:FREE SPACE LOCATION EQUAL TO EXPD? 
3;6R IF YES 

;SAVE ADDRESS IN ERROR 

sNO HIGH ADORESS 

sSAVE EXPD FOR ERROR REPORT 

sene RECV FOR ERROR REPORT 


{POINT TO NEXT ADDRESS 

;DONE ALL MEMORY IN FREE SPACE? 

36R IF NO 

; GOT KT? 

3: NO. GET OUT. 

s YES. ENABLE KT. 

sHIGH ORDER ADORESS START 

;GET >28K START ADORESS (CIN 32W BLOCKS) 


sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sALINE 4K BOUNDARY 

sSAVE HIGH ORDER 

sSAVE LOW ORDER 

;SETUP PAR6 MAPPING REGISTER 

sCOPY ADDRESS BIASED TO PARE 

sRESTORE LOW ORDER IN NON PAR6 FORMAT 
sRESTORE HIGH ORDER IN NON PAR6 FORMAT 
sABOVE 28K LOCATION EQUAL EXPD? 

;68R IF YES 

;SAVE HIGH ORDER IN ERROR 

;SAVE LOW ORDER IN ERROR 

sSAVE EXPD FOR ERROR REPORT 

;SAVE RECV FOR ERROR REPORT 


F 

;UPDATE NON PAR6 ADDRESS 
sMAKE IT DOUBLE PRECISION ADD 
;UPDATE PAR FORMAT ADDRESS 
sEND OF PAR6 MAPPING AREA? 
;BR IF NO 

;BACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 

;6R IF NO 

;TURN OFF MEMORY MAPPING 

;SET FAILURE 


; 
sTURN OFF MEMORY MAPPING 
:SET SUCCESS 


- SAVE R1-R5 ON STACK 


SEQ 077 


TSV3 - GLOBAL AREA 
- SAVE R1- 


REGSAV 


RS ON St 


N6 
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JSR RS ,REGSAV 


;THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
pin Bait Bag RETURNS CONTROL TO THIS ROUTINE TO RESTORE 

; . 


; 

; THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
sCALLED VIA A JSR PC INSTRUCTION 

; 


REGSAV: 

Vv R4,-(SP) 
MOV R3,-CSP) 
MOV R2, -(SP) 
MOV R1,-CSP) 
MOV RS, -CSP) 
MOV 10.(SP),R5S 
JSR PC. AC SP )- 
MOV (SP )+,R1 
MOV (SP)+,R2 
MOV CSP)+,R3 
MOV (SP )+,R4 
MOV CSP)+,RS 
RTS PC 


-SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3° 


é 
;ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


3 
; INPUTS: 
3 
3 NONE . 
3 
;OUTPUTS: 
F 
3 RO OCTAL NUMBER FROM THE OPERATOR 
3 
sCALLING SEQUENCE: 
3 
3 JSR PC,GETPAT 
3 
; - 
GETPAT:: 
SAVREG = ;SAVE THE GENERAL REGISTERS 
1$: GMANID DATASC,PATDAT,O,377,0,377,NO 
TRAP C$GMAN 
BR 10000$ 
WORD PATDAT 
WORD TSCODE 
WORD DATASC 
WORD 377 


"wORD  TS$LOLIM 


SEQ 078 


TSvs - 
GE TP 


2741 


020050 
020052 


020156 


GET 8 BIT Patt 


000377 


103367 
013700 
000207 


105 


000000 
177777 
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ERN FROM UPERATOR 


116 


020262’ 


124 


B7 


-WORD TSHILIM 
100008: 
as is sRETRY IF ERROR 
MOV PATDAT RO sDATA PATTERN FROM OPERATOR 
RTS PC sRETURN TO CALLER 


i ad 
sLOCAL DATA AREA 


PATDAT: .WORD 
DATASC: .ASCIZ 
VEN 


. SBTTL 
| ad 


0 s TEMPORARY STORAGE FOR DATA 
‘ENTER DATA PATTERN’ 


GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


é 
sROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE. 


$ 
s INPUTS: 
$ 
Fy RO ADORESS OF ASCIZ STRING OF MENU 
: RY MAXIMUM ALLOWABLE OPERATOR RESPONSE 
v 
sOUTPUTS: 
8 RO NUMBER OF THE OPERATOR'S SELECTION 
: 
t- 
GETSEL:: 
SAVREG sSAVE GENERAL REGISTERS 
MOV RO,R2 sSAVE THE MENU ADDRESS 
18; MOV R2,R3 sSTART OF MENU STRING 
2s: TST CR3) sEND OF ASCII ? 
BEQ 38 sBRANCH IF ALL LINES DISPLAYED 
PRINTF @SELASC,(R3)> sOISPLAY THE MENU 
MOV (R3)e,- ) 
MOV @SELASC, -( SP) 
MOV @2,-(SP) 
MOV RO 
TRAP CSPNTF 
ADD 06,SP 
BR 2s 
38: GMANID MENASC ,.MENRES,D, -1,.0,-1,NO 
TRAP C$GMAN 
BR 100018 
»-WORD MENRES 
» WORD TSCODE 
»-WORD MENASC 
.» WORD -1 
. WORD TS$LOLIM 
.» WORD TSHILIM 
100018; 
BNCOMPLE TE 1$ sRETRY IF ERROR 


SEQ O79 


Je¥Ecc HOPS EPRL, ano"BEPPOBEAR Fon REEBBiBe 10:58 


103352 
0135700 


020001 
101411 


104450 
103411 


012746 
012746 
0600 


0203516' 


020214' 
000001 


020354' 
00000 


116 


045 NOMAN: .ASCIZ ‘SNA eee Manual Intervention not Allowed - 


i 
sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


° 
s INPUT: 
a 
Fy NONE . 
Q 
sOUTPUT: 
t 
Fy CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
3 1 MANUAL INTERVENTION IS Oi 
a 
sSIDE EFFECTS: 
3 
3 A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
3 NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
3 ALLOWED 
3 
3 - 
CHKMAN: : 
SAVREG sSAVE THE REGISTERS 
MANUAL 3SEE IF MANUAL INTERVENTION OK 
TRAP CSMANI 
Bees s6RANCH IF ALLOWED 
PRINTF ONOMAN sPRINT THE WARNING MESSAGE 
MOV @NOMAN, -( SP) 
MOV 41 . -(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 
cLc s;CLEAR CARRY FOR ERROR 
1%: RTS PC sRE TURN 


. even 


‘@agnNeT’ 


sGET THE OPERATOR'S REPLY 
sCOMPARE TO MAXIMUM ALLOWED 


sBRANCH IF OK 


sOISPLAY ERROR MESSAGE 


sRETRY 


sRETURN TO CALLER 
‘@NBA eee Menu Selection Too Large ee’ 


‘Enter Menu Selection: ‘ 


«WORD O 


CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


SEQ 080 


Test Aborted eee: 


TSvs 
CHKMAN 


GLOBAL on tao. 
CHE CK 


012716 
000002 


012716 


INTERVENTTON LEGAL ERYe® 1058 


003122’ 
000002 
003124' 
000004 
002012" 
000007 
003122" 
003124’ 


000002 
003126' 


003130’ 
003132' 
002120' 
002120' 
000004 
020664 
177572 
002120’ 
000177 

000004 


172340 
077406 


000200 
002000 


177600 


020700' 


020726' 


003122’ 
003124’ 
003124’ 


003130’ 
003130’ 


177740 


. SBTTL 


D7 


ENVIRN 


- SETUP FREE DIAGNOSTIC SPACE 


é 
s SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


3 

ENVIRN: MEMORY 
AP 

108: 


403: 


- SBTTL 
¢ 


RO 
CSMEM 
RO ,FREE 


#2 FREE 
CRO) ,FRESIZ 
04 ,FRESIZ 
LSUNIT, R2 
oe »FRESIZ 


KTINIT 


: 
sROUTINE TO INIT KT-11 


KTINIT: 


1%; 


2s: 


38; 


KTFLG 
K TENABLE 
os 201577 


$ 
: SHIME ,@1777 
$ 
QeERRVEC ,RO 
2% , Q@ERRVEC 
@eSRO 


LSHIME ,KTFLG 
0177, KTFLG 
+ aaaeatatiaaes 


0 
OK IPARO,R1 
077406, -40(R1) 
RO,(R1)> 


1s 
#177600, -(R1) 
9$ 

06%,(SP) 


#10$,(SP) 


GET 1ST FREE ADDRESS... 
-AND WORD COUNT. 


GET NUMBER OF UNITS 
TAKE AWAY 7 WORDS PER UNIT 


3;GET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
sBACKUP 1 WORD 

sSTORE LAST FREE ADDRESS 
sRETURN 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


INIT >26K MEMORY FLAG 
INIT TEST >26K FLAG 
GOT ENOUGH MEMORY ( >28K)? 


NO. 
= ENOUGH MEMORY (>32K)? 


SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 

GOT KT11? 

(TRAP IF NO). 

YES. SET KT FLAG. 


yt 5 Ay ERR VEC PTR. 
Ri = KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUMP AR DATA BY “4k”. 

AT “I/0"? 


NO. 
YES. SET KTPAR? FOR I/0. 


SET UP RETURN 
RTI TO NEXT LOCATION 


SET UP RETURN 


E7 


TSVS - GLOBAL AREAS MACRO M1113 07-FEB- J0:38 SEQ 082 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTER 

aest 020676 000002 RTI s RTI TO NEXT LOCATION 

ood 020700 010037 000004 6%: MOV RO, BOERRVEC s RESTORE OLD ERR VEC PTR. 

2846 020704 9%: 

2847 020704 013700 000004 MOV QOERRVEC ,RO s SAVE OLD ERR VEC PTR. 

2848 020710 012737 020672‘ 000004 MOV 03% ,Q@ERRVEC s SET ERR VEC PTR. 

2849 020716 042737 000001 170200 BIC eB ITO, BOMMRO 3B8E SURE UNIBUS MAP IS OFF 

2850 020724 000240 NOP 

2851 020726 010037 000004 108; MOV RO, BOERRVEC + RESET VECTOR BACK TO ERROR POINTER 

2852 020732 000207 RTS PC 

2853 

2854 

2855 3¢ 

+34 3 SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
3 

. P Requires thet SOFINIT and WRICHR have been done previous to call. 
3 

2860 Hy 

2861 3: INPUTS: 

2862 3 CURRENT UNIT NUMBER 

2863 sOUTPUTS: 

2864 : Tne Extended Features Switch is set. 

2865 5 

2866 3- 

2867 

nae 020734 INVERT: ;: 

2870 020734 005737 002224’ TST EXTFEA : IS SWITCH SET? 

2871 020740 001020 BNE 1s 3 YES,EXIT STAGE RIGHT!(or the next one outa town!) 

2872 020742 012737 100206 021010’ MOV #100206 , CMDPKT 3; WRT SUB-SYS MEM CMD 

2873 020750 012737 021020’ 021012’ MOV @WUSMBK , CMOPKT +2 : MSG BUF ADOR 

2874 020756 012737 000006 021016' MOV 06, CMDPKT +6 ; BYTE COUNT 

2875 020764 012737 100010 021020’ MOV #100010, WSMBK ; INVERT THE SWITCH 

2876 020772 012704 021010' MOV O@CMDPKT ,R4 : SET CMDPKT INTO R4 

2877 020776 004737 010472’ JSR PC ,WRICHR ; 0O IT 

444 021002 000207 1$ RTS PC ; RETURN 

2880 

2881 3 COMMAND PACKET. 

2882 

sone 021004 .BLKB 10-<.-TSV2E7> 

2887 021010 000000 CMOPKT: : 31ST WORD IS T 


0 SOS COMMAND. 
2888 021012 000000 te) s2ND WORD IS THE BUFFER LOW ADDRESS. 
2889 021014 000000 i) 33RD WORD IS THE BUFFER HIGH ADDRESS. 
2890 021016 000000 0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 


2893 F WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 


2895 021020 000000 WSMBK:: O 31ST WORD:: SEL O 
2896 021022 000000 0 32ND WORD:: SEL 2 
2897 021024 000000 c?) 33RD WORD:: SEL 4 
2898 -EVEN 

2899 

2900 3° ‘ 


TSsv3 
KTINIT 


2903 


ecu? 


2910 
2911 
2912 
2915 
2914 


GLOBAL AREAS 
- SETUP KT11 MENT”, 


003134’ 
003136’ 
003140' 
170000 

003144' 
002120’ 
021222’ 
003142’ 
002120' 
002120' 
021222" 
002120’ 
021222’ 
000077 

177774 


003134' 


005452’ 
000001 


000004 


er cLA end ACERS Head 


002120' 


007777 


005777 


003777 


001577 


003140' 
003140' 


F7 


SEQ 083 


SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 


s INPUTS: 
sOUTPUTS: 
3 The NXMFLG is set if we can test. 
a The NXMLO and NXMHI eddresses ere setup. 
g° 
MEMCK: : 
SAVREG ;SAVE THE REGISTERS 
CLR NXMFLG sCLEAR THE FLAG 
CLR NXMLO sCLEAR THE TEST ADDRESS LO 
CLR NXMHI sCLEAR THE TEST ADDRESS HI 
BIT #170000 ,L SHIME sCHECK FOR MORE THAN 18 BITS INDICATED 
3FROM THE SUPERVISOR 
BNE 143 3;68R, IF MAP BOX ETC. 
TST T238 sIS IT A PROCESSOR TYPE 8? 
BEQ is 3NO 
CMP LSHIME ,@7777 3; GREATER THAN 128K 
BLO 2s 3 NO 
JSR PC .NXMTST sSETUP THE ADDRESS 
BR 13% ;SET THE FLAG AND EXIT 
18: TST T23A sIS IT A PROCESSOR TYPE A? 
BEQ 4$ sNO 
2s: CMP LSHIME ,05777 ;GREATER THAN 96K 
BHI 14% :YES,23A/238 WITH 128K MEMORY 
CMP LSHIME ,@3777 sGREATER THAN 64K BUT LESS THAN 92K? 
JSR PC .NXMTST sSETUP THE 
BR 13% sSET THE FLAG AND ExIT 
4$: CMP a 1577 sGREATER THAN 24K BUT LESS THAN 64K? 
BLO sNO, TELL THEM AND EXIT WITH FLAG CLEAR 
JSR be. * OTST sSETUP THE ADDRESS 
ADD 077, NXMHI sFOOL THE 11702 € 11/703 
13%: BIT 0177774, NXMHI sANY MORE THAN 18 BITS SET? 
BNE 158 ;BR, IF MORE THAN 18 BITS SET 
INC NXMFLG 3SET THE FLAG 
; BR 15$ 3;EXIT 
148: 15$ 3NOP FOR PRINTOUT 
PRINTF @NOMEM sTELL THEM € EXIT eeeNO PRINTesece 
MOV @NOMEM, -( SP) 
MOV #1, -CSP) 
MOV RO 
TRAP CSPNTF 
ADD @4,SP 
15%: RTS PC ;RETURN 


SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
sOUTPUTS: NXMLO,NXMHI 


sSETUP WITH NXM ADDRESS 


G/ 


TSV3_- GLOBAL AREA MACRO 3 Q7- - 0:58 

KTINIT - Se tu Kil MEMORY MANAGE AEN? recisfert aga per 
2953 021222 013701 002120° NXMTST: MOV LSHIME ,R1 sGET TOP OF MEMORY 
2954 021226 062701 000200 ADD @200,R1 sMAKE IT I70 BLOCK OR OTHER NXM 
2955 021232 042701 000177 BIC @177,R1 rs 
2956 021236 010102 MOV R1,R2 sRESAVE RESULTS 
2957 000006 -REPT 6 
2958 ASL R1 sPUT IN PLACE FOR XFER 
2959 .ENOR 
2960 021254 010137 003136’ MOV R1,NXMLO sSAVE TEST ADDRESS LOw 
2961 000012 -REPT 10. 
2962 ASR R2 sPUT IN PLACE FOR XFER 
2963 . ENOR 
2964 021304 042702 177700 BIC @177700,R2 s00N‘T WANT ILA! 
2965 021310 010237 003140° MOV R2,NXMHI sSAVE TEST ADDRESS HIGH 
2966 021314 000207 RTS PC sRE TURN 
2967 
2968 
2969 
2970 


7 
2971 021316 ENDMOD 


H7 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1115 07-FEB-84 10:56 
- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


KTINIT 


177777 «177777» «177777 


003110° 
002200' 
003174' 
040000 


000035 


: 002176" 


002012’ 


003174’ 


.TITLE TSv4 - MISCELLANEOUS SECTIONS 
BGNY0D TSVv4 

TSV4:: 
.SBTTL PROTECTION TABLE 
BGNPROT 

LSPROT:: 
.WORD -1., -1, -1, -1 
ENOPROT 


-SBTTL INITIALIZE SECTION 


NO DEVICE PROTECTION REQUIRED. 


aee 
sTHE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING OF EACH PASS. 


; 

sIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
sIF “CONTINUE”, NOTHING IS REQUIRED. 

; 

gee 


3 
s INSERT TEMPORARY JUMP TO ODT 
ge 


BGNINIT 
LSINIT:: 
40%: CLR EXTFEA 
CLR NXMFLG 
MOV @EPRT1. EPRTSW sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG ;CLEAR “SOFT INIT” FLAG 
CLR K TENABLE sCLEAR TEST ABOVE 28K FLAG 
CLR RAMSIZ sCLEAR RAM SIZE FOR RAMERR ROUTINE 
READEF #€F .CONTINUE 
@€F . CONTINUE ,RO 
TRAP CSREFG 
BNCOMPLETE 18 
Bcc is 
CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS 4% :BR IF " 
TST OUFLG sDROPPED UNIT? 
BMI NXTU 3;8R IF YES 
MOV UNITN,R1 
ASL R1 
TST ERTABL(R1) 
BEQ Tu 
BIT B1T14,ERTABL(R1) : DROPPED? 
BNE NXTU 
ExIT INIT 300 NOTHING IF “CONTINUE”. 
TRAP CsExIT 
-WORD L110030-. 
1%: READEF @€F .NEW 
MOV O€F .NEW,RO 
TRAP CSREFG 
Seon NXTU 3; TAKE NEXT UNIT IF NOT NEW PASS. 


NXTU 
READEF €F .START 


TSv4 


MISCE 


INITIALIZE SECTION 


012700 
104447 


103404 


005037 
012737 


000040 


000037 


003376' 
177777 


177777 
002216' 


002200' 
002200° 
177777 


002012’ 
002216' 


000100 


002012’ 
003110’ 


2s: 


118: 
PASRPT: 
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MOV @€F .START,RO 
TRAP = CSREFG 
@COMPLETE 29 
ecs 28 
READEF €F .RESTART 
MOV @€F RESTART RO 
TRAP CSREFG 
BNCOMPLETE 318 

Cc is 
BRESET 
TRAP CSRESET 
cLR TSTCNT 
cLR FATFLG 
CLR T23A 
CLR 1238 
MOV #340, -(SP) 
MOV 0208, -(SP) 
UMP 0.007 
CLR SKIPT 
MOV @-1,QvP 
JSR PC,ENVIRN 
JSR PC.KTINIT 
MOV @ERTABL ,RO 
CLR CRO)» 
CMP RO, OERTABE 
BLO 308 
BR as 
CLR 
ae PASRPT 
MOV @-1.UNITN 
CLR DEVCNT 
BREAK 
TRAP CsBRK 
INC UNITN 
CMP UNITN,LSUNIT 
BLO SETU 
MOV @-1,0UFLG 
BR 118 
DOCLN 
TRAP  CSDCLN 
NOP 
CMP LSUNIT, 01 
BLOS NEWPAS 
TST DEVCNT 
BEQ NEWPAS 
RFLAGS RO 
TRAP CSRFLA 
BIT @ISR,RO 
BNE NEWPAS 

T 

TRAP = CSDRPT 


sist ones — INIT... 
BUS RESET 


sNUMBER OF TESTS RUN IN PASS 
sCLEAR FATAL ERROR COUNT 

sCLEAR PROCSSOR TYPE A FLAG 
sCLEAR PROCSSOR TYPE 6 FLAG 


sRETURN TO DEBUGGER 


+;@@ENTER THE DEBUGGER 
sCLEAR THE SUBTEST “SKIPPER” 


. QUICK Lane! OF 
+e7 ENVIRONMENT 
s INITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


3GO REPORT THE STATUS 


; INIT UNIT NUMBER 
sCLEAR COUNT OF DEVICES RUNNING 


3...AND SET NEXT UNIT NUMBER. 


sABORT, NO MORE UNITS. 


s4OW MANY UNITS SELECTED? 
;8R IF OMY 1 

sARE ANY STILL RUNNING? 
;6R IF NO 


:;SHOULD WE PRINT STATISTICS 
;8R IF NO 


J7 
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INITIALIZE SECTION 


103 021654 
+4 021656 


000741 


012001 
010137 
012001 


010137 
012721 
013721 


013701 


023727 


012737 


002200" 


003110" 
002216’ 


100000 003174' 


003112’ 
002204' 


000002 
016206' 


003112' 
177777 003110' 


108%: 
SETU: 


6R NEWPAS 

GPHARD UNTTN. RO :GET UNIT N P-TABLE POINTER. 

TRAP  CSGPHRD 

BNCOMPLETE NXTU :8R IF UNIT NOT AVAILABLE. 

acc NXTU 

CLR DUFLG sCLEAR “DROPPED” FLAG. 

INC DEVCNT 

MOV (RO)+,R1 :GET 1ST REGISTER ADDRESS. 

MOV R1,C sADDRESS OF REGISTERS OF UNIT UNDER TEST 

MOV (RO)+,R1 :GET VECTOR ADDRESS. 

sMOV —s-« (RO) ,R2 :GET INTERRUPT PRIORITY 

sMOV —s-_- R2,, IPRI ;SET INTERRUPT PRIORITY. 

MOV R1, IVEC sSET INTERRUPT VECTOR POINTER... 
@INTR,(R1)> . VECTOR. 

MOV IPRI,(R1)+ "AND PRIORITY. 

TST ave s1ST PASS 2? 

BEQ S$ 3NO, SKIP THE PASS 1 STUFF. 


é 
:1S7 PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


108: 


2s: 
; 
sF INALLY, 


MOV a 
BIS + eames 


CLR TA 

CMP LSUNIT,@1 
BLOS 10% 
RFLAGS RO 


MOV sP 

TRAP CSPNTF 
ADD 06, SP 

CLR Vv 

MOV CSRADOR ,R1 
MOV R1,R2 

ADD @TSSR, 22 
JSR PC , XNXM 
BCC 2s 

MOV R1,NODEV 
MOV @-1,0UFLG 


sSAY DEVICE RUNNING 

;CLEAR ERROR EXTENSION FLAG. 
sARE WE TESTING MULTIPLE UNITS? 
;6R IF NO. 

;YES -- GET OPERATOR FLAGS. 


:;SHOULD WE PRINT UNIT @? 
3;B8R IF NOT 
;PRINT THE “UNIT C) 


sADDRESS OF FIRST REGISTER 

sSTART OF REGISTERS 

sADDRESS OF TSSR REGISTER 

TEST BOTH CONTROLLER REGISTERS. 
-AND BR IF ALL OK, 

iFLAG DEVICE AS NON-EXISTENT 

;DROP THIS UNIT. 


SET CPU PRIORITY ANC WE'RE DONE. 


SEQ 087 


Tsv4 - 


MISCEL we Cus 


INITIALIZE SE 


150 


151 02 


152 


022170 


022216 
022216 
022216 


022232 


TION 


045 116 045 


052761 100000 003174’ 
042761 040000 003174’ 


012746 022170' 
000002 


062706 000006 


045 116 045 


104452 


012737 177777 003110° 
010001 
006 301 
052761 140000 003174' 
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° 
S$: SETPRI @PRIOO sENABLE INTERRUPTS. 


TRAP CSINIT 
PUNIT: — /GNENDBAseees TESTING UNIT SD28A eeeee/ 
. N 


-SBTTL ADD AND DROP UNITS SECTIONS 


yee 

; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
+ TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

: OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 

gee 


LSAU:: 
“OV RO,R1 ; GET UNIT TO BE ADDED (RO) 
ASL R1 3 MAKE IT A WORD I x 
BIS #100000 ,ERTABL(R1) ; SET THE “ACTIVE” BIT 
BIC #40000 ,ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
PRINTF @1%,RO 
MOV RO, -(SP) 
MOV @2,-CSP) 
MOV SP .,RO 
TRAP CSPNTF 
ADD @6,SP 
ExIT Au 
WORD J$ IMP 
. WORD L10031-2-. 
1$: -ASCIZ /sNSA UNIT S08A ADDED/ 
-EVEN 
ENDAU 3; UNUSED. 
L10031: 
T CsAu 


zee 
THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 


SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
“DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 

UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


BGNOU 

MOV @-1,0UFLG 
MOV RO,R1 

ASL R 


1 
BIS #140000 ,ERTABL(R1) ; SAY DROPPED 


SEQ 088 


Be wo 


L7 
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191 
192 


022240 
022246 


022406 
022406 
022406 
022412 
022416 


022420 


013705 
012703 
004737 
103420 


012727 
000000 
013727 
000000 


013705 
005737 
100405 


012765 


, 


000240 000240 


022274’ 
000002 
000006 


116 045 


000372 
002116’ 
177772 
177756 


017014 


002204 ' 
003110° 


000000 000002 


8 227272727777 


74NSA UNIT SDSA DROPPED/ 


240,240,240 
PRINTF @1$,R0 
MOV »-C(SP) 
MOV #18, -( SP) 
MOV @2,-C(SP) 
MOV ~RO 
TRAP CSPNTF 
ADD 06,SP 
ExIT Ou 
“ JS JMP 
-WORD 110032-2-. 
1%: .ASCIZ 
.EVEN 
ENDDU 
L10032: 
TRAP Ccsou 
zee 
; AUTO-DROP CODE SECTION. 
3 = 
BGNAUTO 
LSAUTO:: 
MOV CSRADOR RS 
MOV #360. .R3 
108: JSR PC ,WAITF 
6cs 20% 
DELAY 250. 
MOV 250. ,(PC)+ 
MOV LSOLY,(PC)>+ 
. WORD 
DEC -6(PC) 
BNE - 
OEC -22(PC) 
BNE .-20 
DEC R3 
BNE 10$ 
JSR PC, CKDROP 
20%: 
ENDAUTO 
L10033: 
TRAP CSAUTI 


sPOINT TO DEVICE REGISTER 


sENOUGH TIME FOR 2400’ REEL TO REWIND 


sWAIT FOR SSR TO SET 
sLEAVE WHEN SSR IS SET 
sWAIT FOR .25 SECONDS 


sBUMP COUNTER DOWN 
sKEEP GOING 
sTRY AND DROP UNIT 


; UNUSED. 


-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


see 

3; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
3 EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


3 --=- 
BGNC 
LSCLEAN:; 
MOV 
TST 
BMI 


MOV 


LN 


CSRADOR ,RS 


#0, TSSRC(RS) 


sPOINT TO DEVICE REGISTER 
ee a FLAG IS SET ON. 
. AND om CONTROLLER FAULT. 
“DON'T TRY TO XCT CLEANUP CODE. 


300 SOFT INIT 


SEQ 089 
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387 O32a8s 


228 027432 


255 022620 


004737 


104412 


016060’ 


022676" 


003174’ 


040000 
170000 


022733' 
000003 


JSR 
ENDCLN 


TRAP 


PC ,WALTF 


CSCLEAN 


see 
; THE REPORT CODING SECTION CONTAINS THE 
3 “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


gc 
LSRPT:: 


1%: 


2s: 


3$: 


BGNRPT 
PRINTS 
Vv 


@DEVSUM 


4$ 
oBIT14,R2 
2s 


R3, -(SP) 


GET START OF ERROR TABLE. 

CLEAR UNIT NUMBER 

GET ERROR TABLE ENTRY € TEST IT. 
ZERO IF UNIT NOT RUN 


WAS UNIT DROPPED? 

BR IF YES 

GET ERROR COUNT FIELD 
PRINT 


WAS UNIT NON-EXISTENT? 
BR IF NO 


WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


SEQ 090 


CPE an -UP AND REPORT CODING SECTIONS S “2125 


256 022622 042702 170000 30$: 


022632 012746 023146' 
022636 012746 000003 


022646 062706 000010 


258 022652 062704 000002 4$: ADD @2,R4 
259 022656 005203 INC R3 
260 022660 020427 003374’ CMP R4, OERTABE 
261 022664 103701 BLO 1% 
262 022666 012604 MOV (SP )+,R4 
263 022670 012603 MOV (SP)+,R3 
264 022672 012602 MOV (SP )+,R2 
265 022674 ENORPT ; UNUSED. 
022674 L10035 
022674 104425 TRAP CsRPT 
367 
266 022676 045 116 045 DEVSUM: .ASCIZ /sSNSADEVICE STATUS SUMMARY: sN/ 
269 022733 045 101 040 DEVONL: .ASCIZ /#A UNIT SD3SA ONLINE, ERRORS = SDSN 
270 023003 045 101 040 DEVNXR: .ASCIZ /#A UNIT SD3SA DROPPED, NON-EXISTENT REGISTERSN/ 
271 023065 045 101 040 DEVNRD: .ASCIZ /#A UNIT SD38A DROPPED, NOT READY AT STARTUPSN/ 
o"8 023146 045 101 040 DEVDRO: ~~ /$A UNIT S038A DROPPED, ERRORS = SDSN/ 
-EV 
274 
275 023216 ENOMOD 
276 
277 


N7 


07-FEB-84 10:58 


BIC @tC7777,R2 

PRINTS #DEVDORO,RS,R2 
Vv R2,-CSP 

MOV R3,-CSP) 

MOV OE . - CSP) 

MOV #3, -C(SP) 

MOV . 


SEQ 091 
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TSVSA - HARDWARE TESTS MACRO M1113 07-FEB 84 10:58 SEQ 092 
CLEAN-UP AND REPORT CODING SECTIONS 

1 TITLE TSVSA - HARDWARE TESTS 

4 ; 

10 023216 BGNMOD TSV5 

023216 TSV5:: 

16 

24 

= -SBTTL TEST 1: BUS RESET TEST 

58 THIS TEST VERIFIES THAT THE M7455 MODULE’S DEVICE REGISTERS ARE 


ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 


4 

i: 
30 r BUILT-IN INITIALIZATION SELF-TEST MICROOIAGNOSTIC DIO NOT FIND 
31 3 ANY BASIC PROBLEMS IN THE MODULE. AREAS OF LOGIC TESTED BY THE 
32 ’ SELF-TEST SEQUENCE ARE AS FOLLOWS: ROM AND PIPELINE REGISTER, 
33 Hy SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, RAM. THIS 
34 Fy TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
35 3 VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
36 : WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
37 3 MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE 
38 r 3 CONTENTS OF THE TSSR REGISTER, SUCCESSFUL INITIALIZATION IS 
39 3 INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA) 
40 3 BITS BEING SET (1) AND ALL OTHER BITS CEXCEPT Al? AND A16 AND 
41 3 OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0). IF THE 
42 Fy CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
43 3 LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE DISCREPANCIES. 
44 3 THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND 
4 3 REPORTS ONE OF THREE POSSIBILITIES: 

$ 
47 3 
48 . 3 1. TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET, 
49 3 OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE 
50 3 APPARENT ERROR CODE IN BITS 0-5): INDICATES THAT THE 
51 3 TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
Se 3 CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
53 : ERROR (EXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
54 3 REPLACE THE M7455. IF THE M7455 ITSELF IS BEING 
55 3 DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
os 3 ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 

H 
58 H 2. SSR = O, SC = O AND THE ERROR CODE IN BITS 0-5 IS IN 
59 3 THE RANGE 17- 133 ig IS A FATAL ERROR. THE ERROR 
60 Hy CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 
os Fy INDICATES THAT A SERIOUS PROBLEM EXISTS. 

é 
63 
64 023216 BGNTST 

023216 Tl:: 
69 023216 012700 023414’ MOV @TSTLIO,RO sASCII MESSAGE TO IDENTIFY TEST 
70 023222 004737 016322’ JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
71 023226 012737 000024 002214’ MOV 20, ,LOOPCNT sPERFORM 20 ITERATIONS 
72 023234 TLLOUP; 
7 023234 005003 CLR R3 sUSE R3 AS FATAL ERROR FLAG 
75 023236 BGNSUBS 34////4.44/4// BEGIN SUBTEST (/4/4/47/40/ 4078 
023236 Thi: 


023236 104402 TRAP CsBsvs8 


Tey" i: BCeM APES FER Le, MACRO M1115 07-FEB-84 10:56 


023316 
023316 
023316 


1v~403 


005703 
001402 
004737 017014’ 
005003 


104402 


005065 000002 
004737 016060’ 
016501 000002 
010102 

042702 176277 
052702 002200 


005703 
001402 
004737 017014' 
004737 016270' 
103002 
000137 023234’ 


108; 


108; 


20%: 


C8 


PC ,WAITF 
TSSR(RS),R1 

R1,R2 
@tC<HIADOR!OFL> ,R2 
@SSR!INBA,R2 

R1,R2 


108 
ERRNO, SFHERR , SFFMSG 


R3 


R3 
203 
as’ »CKOROP 


TSSRCRS) 

PC ,WAITF 
TSSRCRS),R1 

R1,R2 
@tC<HIADOR!OFL>,R2 
@SSR!INBA,R2 

R1,R2 , | 


10% . 
ERRNO, SFIERR, SFFMSG 


R3 


PC, TSTLOOP 
40% 
T1LOOP 


SEQ 093 


sISSUE A BUS RESET 
TRAP CSRESET 
sWAIT F 


OR READY 
sGET THE CONTENTS OF TSSR 
sCONTENTS OF TSSR 
s THESE BITS MAY BE SET 
sREADY AND NEW DATA SHOULD BE SET 
sCOMPARE EXPECTED TO RECEIVED 
sBRANCH IF COMPARE 
sREPORT A FATAL ERROR 
TRAP CSEROF 
-WORD 101 
. WORD 


:SET THE FATAL ERROR FLAG 

ENNANNNNANSNANS END SUBTEST \AANANNNAANAN 
7: 

TRAP CsesSuB 


;010 we mavt FATAL ERROR ? 
sBRANCH IF NO 

:GO DROP THIS "Untt, IF ALLOWED 
sRESET FATAL ERROR FLAG 


3s////1/1////7 BEGIN SUBTEST S/////////7/7 
Tl.ed: 
TRAP CsBSU8 


sWRITE TO ISSUE A SOFT RESET 
sWAIT FOR READY TO SET 

sGET REGISTER TSSR DATA 

sCONTENTS OF TSSR 

sTHESE BITS MAY BE SET 

sREADY AND NEW DATA SHOULD BE SET 
sCOMPARE EXPECTED TO RECEIVED 
sBRANCH IF COMPARE 


sREPORT A FATAL ERROR 
TRAP CSEROF 
«WORD 102 
-WORD  SFIERR 
-WORD SFFMSG 


sSET THE ERROR FLAG 


BNNANNAANANNNN END SUBTEST NANAANNNANAAN 
L10040: 
TRAP CsESUB 


sFATAL ERROR DETECTED ? 
sBRANCH IF NOT 

1SEE IF TIME TO DROP UNIT 

sSHOULD WE DO ITERATIONS ? 
sBRANCH IF NOT 

sLOOP UNTIL COUNT EXPIRED 


D8 


a d 1 
Tey 1 *BRRMABE, JERE, MACRO M1113 07-FEB-84 10:58 SEQ 094 
124 023410 40%: EXIT tsT sALL DONE THIS TES! 
023410 104432 TRAP CsexIt 
023412 000022 -WORD 110036-. 
125 
126 a* 
127 s;LOCAL TEXT MESSAGES FOR TEST 
128 $- 
129 
130 023414 111 156 151 TSTLIO: .ASCIZ ‘Initialization’ 
131 .EVEN 
132 023434 ENOTST 
023434 110036: 
-_ 023434 104401 TRAP CseTstT 
se .SBTTL TEST 2: WRAP DATA - HIGH BYTE 
1 
136 
137 ; THIS TEST VERIFIES OPERATION OF: 
re | 
3 
140 : 1. PART OF THE POP-11 BUS INTERFACE SECTION OF THE M7455 
141 : MODULE: PART OF THE INPUT FILE (TSO8 HIGH BYTE), PART 
142 ; OF THE OUTPUT FILE (TSSR HIGH BYTE AND TSBA, BOTH 
143 3 BYTES), PART OF THE DCOOS TRANSCEIVER CIRCUITS (ADDRESS 
144 ; DECODER, BDAL ORIVERS, HIGH BYTE OF INTERNAL DAL BUS 
145 ; ORIVERS), AND BASIC PROGRAMMED I/O CONTROL SEQUENCES 
hy : AND LOGIC; 
3 
148 : 2. PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER, 
ios : REGISTER 0, ROTATE AND NEGATE FUNCTIONS; 
3 
151 ; 3. Y AND SOURCE BUSES; 
. 
t+ ; 4. BASIC MICROPROGRAM SEQUENCES. 
: 
132 3 
" 
157 ; THE PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSDB, 
158 3 WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
159 ; OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
160 ; DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
161 ; OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
162 : 8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN 
163 ; WRITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
164 3 IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
165 ; LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
166 : ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
oH 3 BYTES (0-377 OCTAL). 
o 
169 023436 BGNTST 
023436 T2:: 
174 023436 012700 024104’ MOV @TST2ID,RO sASCII MESSAGE TO IDENTIFY TEST 
175 023442 004737 016322’ JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
176 023446 012737 000024 002214' MOV 020, ,LOOPCNT sPERFORM 20 ITERATIONS 
177 023454 005004 T2LOOP: CLR RG s;STARTING DATA PATTERN 
178 023456 012703 177777 MOV @-1,R3 300 INIT ON FIRST TIME THROUGH 


179 023462 005703 S$: TST R3 :00 WE NEED SOFT INIT 


E8 


TSVSA - HARDWARE TESTS M1113 07-FEB-84 10:58 SEQ 095 
TEST 2: WRAP DATA - Bron Sr TE 

180 023464 001412 BEG 108% sBRANCH IF NOT 

181 023466 005003 CLR R3 300N'T NEED INIT NEXT TIME THRU 

182 023470 004737 015604' JSR PC SOF INIT ;00 SOFT INIT OF CONTROLLER 

183 023474 103406 BCS 10$ 368R IF SOFT INIT = OK 

187 023476 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

188 023500 ERROF ERRNO, SF IERR, SF INSG sDEVICE FATAL ERROR DURING INIT 
023500 104455 TRAP CSEROF 
023502 000311 - WORD 201 
023504 003644’ - WORD SFIERR 
023506 011644’ - WORD SF IMSG 

189 023510 "05203 INC R3 sFORCE SOFT INIT ON NEXT PASS 

cor 023512 405037 002220’ 10$: CLR FATFLG sCLEAR FATAL ERROR FLAG 

191 

192 023516 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

193 023516 104404 TRAP C$BSEG 

194 023520 110465 000001 MOVB R4, TSOBHC( RS) sSET MAINT MODE + WRITE DATA 

195 023524 004737 016060’ JSR PC ,WAILTF sWAIT FOR SSR TO SET 

196 023530 103411 6cs 15% 368R IF CARRY SET (GOOD RETURN) 

197 023532 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

198 023534 010402 MOV R4,R2 ;DATA THAT WAS WRITTEN 

202 023536 ERROF ERRNO, T2SSR ,EXPREC sDEVICE FATAL SSR FAILED TO SET 
023536 104455 TRAP CsERDF 
023540 000312 -WORD 202 
023542 024032’ - WORD T2SSR 
023544 015304’ - WORD EXPREC 

203 023546 005203 INC R3 sFORCE SOFT INIT ON NEXT PASS 

204 023550 005237 002220’ INC FATFLG 3sSET FATAL ERROR FLAG 

205 023554 158: CKLOOP sLOOP ON ERROR, IF FLAG SET 
023554 104406 TRAP CSCLP1 

206 023556 005737 002220' TST FATFLG 3WAS FATAL ERROR RECEIVED ? 

207 023562 001402 BEQ 20% sBRANCH IF NOT 

208 023564 004737 017014' JSR PC ,CKOROP 3SEE IF TIME TO DROP UNIT 

209 023570 010402 208: MOV R4 ,R2 sDATA PATTERN WRITTEN 

210 023572 042702 177774 BIC @tC<BITO!BITI>, R2 sCLEAR ALL BUT LOW 2 BITS 

211 023576 000302 SWAB 2 ;BITS 8 AND 9 HAVE LOW DATA BITS 

212 023600 052702 002200 BIS @SSR!NBA,R2 3; THESE BITS MUST BE SET ALSO 

213 9023604 016501 000002 MOV TSSR(RS).R1 ;GET THE CONTENTS OF TSSR 

214 023610 032701 000100 BIT OOFL .R1 sIS OFF-LINE BIT SET ? 

215 023614 001402 BEQ 258 sBRANCH IF NOT OFF-LINE 

216 023616 052702 000100 BIS OOFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

217 023622 020201 253: CMP R2,R1 sD0ES EXPECTED MATCH RECEIVED ? 

218 023624 001405 BEQ 30$ ;OKAY IF MATCH 

222 023626 ERRHRD ERRNO, T2TSSR,EXPREC :TSSR WASN‘ T CORRECT 
023626 104456 TRAP CSERHWRD 
023630 000313 .WORD 203 
023632 023765’ . WORD T2TSSR 
023634 015304’ .WORD EXPREC 

223 023636 005203 INC R3 sFORCE SOFT INIT ON NEXT PASS 

224 023640 30%: CKLOOP sLOOP ON ERROR ? 
023640 104406 TRAP CSCLP1 

225 023642 016501 000000 MOV TSBACRS),R1 ;GET TSBA REGISTER CONTENTS 

226 023646 005002 CLR R2 3 

227 023650 150402 BISB R4,R2 sDATA PATTERN WRITTEN 

228 023652 000302 SWAB R2 sMOVE INTO TOP BYTE 

229 023654 150402 BISB R4,R2 3;B0TH HALVES 


SHOULD BE SAME 
230 023656 020102 CMP R1,R2 sCOMPARE EXPECTED TO RECEIVED 
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TSVSA - HARDWARE TESTS M1113 07-FEB-84 10:58 
TEST 2: WRAP DATA - AGH vTe was One 
231 023660 001405 BEQ 353% sERROR IF NOT EQUAL 
235 023662 ERRHRD ERRNO, T2TSBA,EXPREC sPRINT THE ERROR € mete - 
023662 104456 CSERHRD 
023664 000314 TMORO 204 
023666 023720’ -WORD T2TSBA 
023670 015304’ -WORD EXPREC 
3 023672 005203 INC as sFORCE SOFT INIT ON NEXT PASS 
238 023674 35%: ENDSEG g<eeecececececee END SEGMENT <eeeeceeeeece 
023674 10000$: 
a 023674 104405 TRAP CSESEG 
240 023676 105204 INCB R4 sNEXT DATA PATTERN TO TEST 
241 023700 001270 BNE 5$ sBRANCH TILL BACK TO ZERO 
242 023702 004737 016270’ JSR PC, TSTLOOP sSHOULD WE DO ITERATIONS ? 
243 023706 103002 Bcc 403 sBRANCH IF NOT 
244 023710 000137 023454’ JMP T2L00P 3LOOP UNTIL COUNT EXPIRED 
245 023714 403: ExIT Tst sALL DONE THIS TEST 
023714 104432 TRAP CsExIT 
023716 000214 . WORD L10041-. 
246 
247 
248 sLOCAL TEXT MESSAGES FOR TEST 
$50 oi 
251 023720 124 123 102 T2TSBA: .ASCIZ ‘TSBA Incorrect After TSOB High Write’ 
252 023765 124 123 123 T2TSSR: .ASCIZ ‘TSSR Incorrect After TSOB Hi Write’ 
253 024032 116 157 040 T2SSR: .ASCIZ ‘No Sub-System Ready After T High Write’ 
254 024104 127 162 141 TST2IO: .ASCIZ ‘Wrap Date - High Byte’ 
255 .EVEN 
256 024132 ENDTST 
024132 110041: 
287 024132 104401 TRAP CsETST 
es -SBTTL TEST 3: WRAP DATA - LOW BYTE 
260 : THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
pot 3 ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES: 
D 
263 : 
— 3 1. LOW BYTE OF THE TSOB INPUT FILE REGISTER, 
; 
266 ; 2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOOS 
oH : TRANSCEIVER CIRCUITS, 
a 
oo. ; 3. BASIC FUNCTIONING OF PARTS OF THE RAM, 
b 
573 ; 
é 
273 ; THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSDB, 
274 3 WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
275 3 OF BOTH TSBA AND TSSR. TNE MODULE 1s FUNCTIONING CORRECTLY IF 
276 : DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
277 3 OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
278 3 8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN 
279 Fy WRITTEN. AN ERROR TS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
280 Fy IF A DISCREPANCY IN YSBA OR TSSR IS DETECTED. THE ANALYSIS 


TEST 3, "WRAP DAT 


024324 


Ests 


M1115 07-FEB-84 10:58 


- LOw 


024577" 
016322" 
000024 


000001 


015604° 


002220' 


002220' 


002220' 
017014° 
177774 


002214’ 


T3LOOP: 
S$: 


108: 


158%: 


25%: 


G8 


SEG 097 


LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES €0-377 OCTAL). 


BGNTST 


@TSTSIO,RO 
PC, TSTSETUP 
~ a »LOOPCNT 


#1,R3 

R3 

108 

R3 
PC, SOF INIT 
10% 


RO,R1 
ERRNO, SF IERR, SF IMSG 
R3 

FATFLG 

R4, TSOBCRS) 

PC T 


-R2 
ERRNO, TSSSR,EXPREC 


R3 

FATFLG 

FATFLG 

20% 

PC ,CKDROP 

R4 ,R2 

soe aereeaer ee oR2 


30$ 
ERRNO, TSTSSR,EXPREC 


T3:: 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 
sSTARTING DATA PATTERN 
sFORCE SOFT INIT ON FIRST PASS 
1SET IF INIT IS REQUIRED 


300 SOFT INIT OF CONTROLLER 
sB8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR veaatias eis 


CSEROF 

-WORD 301 
-WORD SFIERR 
WORD SFIMSG 


;FORCE INIT ON NEXT PASS 
;CLEAR FATAL ERROR FLAG 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 


TRAP CsBSEG 
sSET MAINT MODE + WRITE DATA 
sWAIT FOR SSR TO SET 
3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDATA THAT WAS WRITTEN 
sDEVICE FATAL SSR FAILED, 1. e SET 
CSEROF 
. 302 
T3SSR 
. EXPREC 
sFORCE INIT ON NEXT PASS 
;SET THE FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CscLPl 
s0ID WE GET FATAL ERROR ? 
sBRANCH IF NOT 


sDROP UNIT, IF DROP ALLOWED 
sDATA PATTERN WRITTEN 

sCLEAR ALL BUT LOW 2 BITS 

;BITS 8 AND 9 HAVE LOW DATA BITS 
s THESE BITS MUST BE SET ALSO 
3GET THE CONTENTS OF TSSR 

3IS ORIVE OFF-LINE 

sBRANCH IF NOT OFFLINE 

3SET OFF-LINE IN EXPECTED 

;DOES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 

:TSSR WASN'T CORRECT 


TRAP CSERHRD 


3: 


HARDWARE 


Test 
AP DATA 


024526 


H8 
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016270’ 
024152’ 


“WORD T3isgR 


“ EXPREC 
INC R3 sFORCE INIT ON NEXT PASS 
303: CKLOOP sLO0P ON ERROR ? 
TRAP CSCLP1 
on ee sGET TSBA REGISTER CONTENTS 
‘ 
BISB R4,R2 sDATA PATTERN WRITTEN 
SWAB Ro sMOVE INTO TOP BYTE 
BISB R4,R2 sBOTH HALVES SHOULD BE SAME 
CMP R1,R2 ;COMPARE EXPECTED TO RECEIVED 
BEG 358 3;6R IF ERROR NOT EQUAL 
ERRHRD ERRNO, TSTSBA,EXPREC sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
. WORD 304 
. WORD T3TSBA 
INC R3 sFORCE INIT ON NEXT PASS 
353%: ENDSEG g<ececececcececee END SEGMENT <cceceeeceece 
100008: 
TRAP CSESEG 
INCB Ra 7NEXT DATA PATTERN TO TEST 
BNE 5$ sALL DONE WHEN BACK TO ZERO 
JSR PC, TSTLOOP sSHOULD WE DO ITERATIONS ? 
Bcc 40% sBRANCH IF NOT 
JMP T3L00P sLOOP UNTIL COUNT EXPIRED 


40%: ExIT TsT sALL DONE THIS TEST 
TRAP CSExIT 


-WORD L110042-. 


3* 
sLOCAL TEXT MESSAGES FOR TEST 
g° 


T3STSBA: .ASCIZ ‘TSBA Incorrect After TSOB Low Write’ 
T3TSSR: .ASCIZ ‘TSSR Incorrect After TSOB Low Write’ 
T3SSR: .ASCIZ ‘No Sub-System Ready After TSDOB Low Write’ 
TSTSIO: .ASCIZ ‘Wrap Dete - Low Byte’ 

EVEN 

ENOTST 

10042: 
TRAP Cserst 


-SBTTL TEST 4: RAM TEST 


THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7455 
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.€., THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADORESS). THESE 
TESTS ARE PERFORMED By THREE SUBTESTS, DESCRIBED BELOW. A 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
ps | 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 
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TSVSA - HARDWARE TESTS MACRO M1113 07-FEB-84 10:58 SEQ 099 
TEST 4: RAM TEST 
385 : 
386 Fy 
44 ; TEST 4 , SUBTEST 1: - 
; 
389 8 THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE 
390 : M7455 INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSDB 
391 3 AND THEN PERFORMING THE FOLLOWING SEQUENCE FOR EACH ADDRESS 
392 3 00-7777 COCTAL): 
304 
; 
395 $ 1. THE ADORESS TO BE TESTED IS LOADED INTO THE TSDB (VIA A 
F WORD WRITE). 
; 
398 3 2. THE ADDRESSED RAM LOCATION IS WRITTEN, THEN READ INTO 
399 8 THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE 
rey 3 LOW BYTE OF TSOB. 
1 ; 
402 8 3 THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
403 3 THE DATA PATTERN ORIGINALLY WRITTEN; A DISCREPANCY IS 
pod ; REPORTED AS AN ERROR. 
; 
406 8 4. THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN 
407 ; WRITTEN INTO TSOB (WORD WRITE), TO CAUSE THE LOCATION 
408 8 UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA. 
409 3 THE LOW BYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES 
rt ; REPORTED. 
F 
412 3 5. THE HIGH BYTE OF TSBA IS CHECKED; IT SHOULD CONTAIN 
4i3 ; THE SUM OF THE HIGH AND |.OW BYTES LAST WRITTEN INTO 
414 ; TSOB AS A WORD. A DISCREPANCY IS REPORTED AS A 2901 
aaz $ PROBLEM. 
; 
417 ; 6. THE CONTENT OF TSSR IS CHECKED; SETTING OF THE SC BIT 
aie 3 IS IGNORED. OTHER DISCREPANCIES IN TSSR ARE REPORTED. 
; 
420 : 
421 024626 BGNTST 
one 024626 T4:: 
423 024626 BGNSUB 3///414//7////74 BEGIN SUBTEST 444/4/4/4////77/ 
024626 T4.1: 
om 024626 104402 TRAP CsBSUB 
429 024630 012700 026136’ MOV @TST4ID,RO sASCII MESSAGE TO IDENTIFY TEST 
430 024634 004737 016322’ JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
431 024640 012737 000005 002214’ MOV @5,LOOPCNT sPERFORM S ITERATIONS 
432 024646 T4LOOP: 
433 024646 004737 015604’ JSR PC,SOF INIT 300 INITIALIZE ON CONTROLLER 
434 024652 103405 BCS 20% sB8R IF INIT WAS OK 
438 024654 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
439 024656 ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
024656 104455 TRAP CSEROF 
024660 000621 -WORD 401 
024662 003644’ -WORD SFIERR 
024664 011644’ . WORD SF IMSG 
440 024666 005004 . 208: CLR ;SET RAM ADDRESS AT ZERO 


Ra 
441 024670 004737 016146’ JSR PC,CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 


TSVSA 


- HARDWARE 


TESTS 


TEST 4: RAM TEST 


442 
443 
Aad 


024674 
024700 
024700 
024700 


024702 
024704 
024710 
024714 
024720 
024724 
024730 
024734 
024736 
024740 
024740 
024742 
024744 
024746 
024750 
024750 
024750 
024750 


024752 
024754 
024760 


105065 
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000000 


258: 


016146' 
000000 
016146’ 
000000 


016146’ 
000000 


40$: 


016146' 
000000 


016146’ 
000000 


45$: 


000001 


8 
ERRHRD 


J8 


TSDOBCRS) 


R4,R2 
PC,CHKTSSR 


TSBACRS), R1 
R1,R2 


30$ 
ERRNO, TSBAM2 ,EXPREC 


R4 
R4, #10000 
253 
SUB 


R2 

R4 

R4,R2 

PC,.CHKTSSR 

R4, TSOBCRS) 

PC ,CHKTSSR 
TSBACRS),R1 

R1,R2 

45$ 

ERRNO, TSBAM2 ,E XPREC 


TSBAH(RS),R1 
R4,R2 

R2 

R4,R2 

R1,R2 


50$ 
ERRNO ,M2901 ,EXPREC 


SEQ 100 


sSET INTO MAINTENANCE MODE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 


sEXPECTED DATA FROM WRAP-AROUND 
sWAIT FOR READY, NON-AMBIGUOUS 
sLOAD ADDk SS INTO TSOB 

sWAIT FOR READY, NON-AMBIGUOUS 
sLOADS DATA INTO RAM LOCATION 
sWAIT FOR READY, NON-AMBIGUOUS 
sREADS WRAP DATA 

sD0ES WRITTENC WRAP) = READ 


;B8R IF OK, THEY ARE EQUAL 

sDATA NOT WRAPPED CORRECTLY 
TRAP CSERHRD 
. WORD 402 
«WORD TSBAM2] 

. WORD EXPREC 
3<<eececcecece END SEGMENT <ceeeeeceeeeee 
10000$: 

TRAP CsESEG 


sNEXT ADORESS 

;END OF RAM MEMORY CHECK 

;LOOP TILL ALL RAM WRITTEN 

3;D0N'T CONTINUE IF ERROR ON WRITE 
TRAP CSESCAPE 
«WORD L10044-. 


;CLEAR OUT R2 HIGH BITS 

sSET BACK TO 7777 

;GET DATA PATTERN BACK IN SHAPE 
sWAIT FOR READY, NON-AMBIGUOUS 
:LOAD UP RAM ADDRESS POINTER 
sWAIT FOR READY, NON-AMBIGUOUS 
sREAD RAM CONTENTS BACK 

sCHECK WITH DATA WRITTEN 


;BR IF OK, DATA IN = DATA OUT 
;WRITTEN DATA NOT = TO READ 
TRAP CSERHRD 
-WORD 403 
«WORD TSBAM2 
-WORD EXPREC 
sSCOPE LOOP 
TRAP CscCLP1 


sHIGH BYTE READ OF TSBA 
sDATA PATTERN WRITTEN 

sHIGH TO LOW 

;TOTAL OF BYTES IN LOW BYTE 


3SUM OF BYTES WRITTEN TO TSDB = TSBAH 

;BR IF OK, THEY SHOULD BE 

32901 PROBLEM ADDER 
TRAP CSERHRD 
«WORD 404 
-WORD M2901 


ARE 


HARDOW 
: RAM TEST 


025174 
025174 


025176 
025200 
025204 


TESTS 


104402 
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015604° 


016146‘ 
000000 


016146’ 
000000 
016146' 
000000 
016146' 
000000 


010000 


508: 


25%: 


30$: 


CKLOOP 


DEC 
BGE 


ENDSUB 


BGNSUB 


TEST 4, 


K8 


Ra 
40$ 


SUBTEST 2 


SEQ 101 


-WORD EXPREC 
sSCOPE LOOP 
TRAP CsCLP1 


sDROP DATA COUNTER (PATTERN) 
sNOT AT LOC. ZERO YET 


SNNANANANANANN END SUBTEST \ANAANANANNAN 
* TRAP Cs€SuB 


ALAA — SUBTEST S///4///////7/ 
4.2: 


THIS SUBTEST WRITES RAM WITH ALL ZEROS 
THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 


PC, SOF INIT 
20% 


RO,R1 
ERRNO, SF IERR , SF IMSG 


R2 


R4 
PC,CHKTSSR 
TSDOBC(RS) 


PC ,CHKTSSR 
R4, TSOBCRS) 
PC,.CHKTSSR 
R2, TSOBCRS) 
PC,.CHKTSSR 
TSBACRS),R1 
R1,R2 


30$ 
ERRNO, TSBAM2 ,EXPREC 


R4 
R4, #10000 
25% 


TRAP Cs6SUB 

:00 INITIALIZE ON CONTROLLER 

3;6R IF INIT WAS OK 

:CONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
«WORD 405 
-WORD  SFIERR 
-WORD SFIMSG 


:TEST DATA = 0 

;STARTING RAM ADDRESS = 0 
;WAIT FOR READY, NON-AMBIGUOUS 
sSET INTO MAINTENANCE MODE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


sWAIT FOR READY, NON-AMBIGUOUS 
;LOAD ADDRESS INTO TSOB 

sWAIT FOR READY, NON-AMBIGUOUS 
sLOADS DATA INTO RAM LOCATION 
sWAIT FOR nya NON - AMBIGUOUS 
sREADS WRAP DATA 

;D0ES WRITTENCWRAP) = READ ? 
;BR IF OK, THEY ARE EQUAL 
sDATA NOT WRAPPED CORRECTLY 


TRAP CSERHRD 
-WORD 406 
. WORD TSBAM2] 

. WORD EXPREC 
g<eeeecceceeece END SEGMENT <<ceeeeceeceecc 
10000$: 

TRAP CSESEG 


sNEXT ADDRESS 
;END OF RAM MEMORY CHECK 
;BR, MORE RAM TO GO 


TSVSA 


TEST 


- HARDWARE TESTS 


4: RAM TEST 


025370 
025370 
025370 


015304' 


104402 
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35$: 
016146' 40$: 
000000 


016146' 
000000 


000377 
000000 
016146' 
000000 
016146' 
000000 


43%: 


4S$: 
016146' 
000000 
016146’ 
000001 


50$: 


BGNSUB 


L8 


R4 
R2 
PC,.CHKTSSR 
R4, TSOBCRS) 
PC,CHKTSSR 
ee 


R1,R2 
43% 
ERRNO, TSBAM3,,EXPREC 


#000377 ,R2 

R4, TSDOBCRS) 
PC,CHKTSSR 

R2, TSOBCRS) 

PC ,,CHKTSSR 
TSBACRS),R1 

R1,R2 

45$ 

ERRNO, TSBAM2 ,EXPREC 


PC,CHKTSSR 
R4, TSOBCRS) 
PC,CHKTSSR 
TSBAHCRS),R1 
R4,R3 


50$ 
ERRNO ,M2901 ,EXPREC 


R4 
40$ 


SEQ 102 


sSET BACK TO 7777 

sSET TO ALL ZEROS 

sWAIT FOR READY (SSR) TO SET 
sLOAD UP THE ADDRESS FOR RAM 
sWAIT FOR READY (SSR) TO SET 
sREAD THE RAM CONTENTS BACK 
;LOOKING FOR 000000 (EXPECTED) 


;BOTH SHOULD BE 00000000 BINARY 

3;8R, IF DATA IS GOOD 

sCHARACTERISTICS DATA NOT CORRECT 
TRAP CSERHRD 
-WORD 407 
«WORD TSBAM3 
. WORD EXPREC 

3SET ALL ONES WORD 

;L0AD UP RAM ADDRESS POINTER 

sWAIT FOR READY, NON-AMBIGUOUS 

s;WRITE DATA INTO RAM 

sWAIT FOR READY, NON-AMBIGUOUS 

3READ RAM CONTENTS BACK 

;CHECK WITH DATA WRITTEN 

;B8R IF OK, DATA IN = DATA OUT 

;WRITTEN DATA NOT = TO READ 
TRAP CSERHRD 
-WORD 408 
.WORD TSBAM2 
.WORD EXPREC 

sSCOPE LOOP 
TRAP CSCLP1 

sWAIT FOR READY, NON-AMBIGUOUS 

;WORD WRITE TO SET UP ADDRESS 

sWAIT FOR READY, NON-AMBIGUOUS 

;HIGH BYTE READ OF TSBA 

;DATA PATTERN WRITTEN 

;HIGH TO LOW 

;TOTAL OF BYTES IN LOW BYTE 

3SUM OF BYTES WRITTEN TO TSOB = TSBAH 

;BR IF OK, THEY SHOULD BE 

32901 PROBLEM ADDER 
TRAP CSERHRD 
.WORD 409 
. WORD M2901 
.WORD EXPREC 

;SCOPE LOOP 
TRAP CsCLPlL 


;DROP RAM ADDRESS POINTER 
sNOT AT LOC. ZERO YET 


s\ANANNANANANN END SUBTEST \ANANNANANNNN 
L10045: 
TRAP CsESUB 


34/////////// BEGIN SUBTEST “/474/4/4///47/+/7/ 
T4.3: 
TRAP CsBSUB 


M8 


TSVSA - nenpuant TESTS MACRO M1113 07-FEB-84 :58 
test 4: RAM TEST . ” =e 
585 
eee 3 TEST 4, SUBTEST 3 
; 
588 3 THIS SUBTEST WRITES RAM WITH ALL ONES 
oe : THEN WALKS A ZERO WORD DOWN THROUGH MEMORY 
3 

591 025372 004737 015604’ JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 

592 025376 103405 bcs 20$ ;BR IF INIT WAS OK 

596 025400 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

597 025402 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
025402 104455 . TRAP CSERDF 
025404 000632 ~ WORD 410 
025406 003644' - WORD SFIERR 
025410 011644' WORD SF IMSG 

598 025412 012702 177777 20$: MOV #177777,Re 3SET DATA AT ALL ONES 

599 025416 005004 CLR R4 ;SET RAM ADDRESS AT ZERO 

600 025420 004737 016146' JSR PC ,CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 

601 025424 105065 000000 CLRB TSOBCRS) sSET INTO MAINTENANCE MODE 

602 025430 25%: 

603 025430 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

60s 025430 104404 TRAP CSBSEG 

605 025432 004737 016146' JSR PC,.CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 

606 025436 010465 000000 MOV R4,TSOBCRS) ;LOAD ADDRESS INTO TSDOB 

607 025442 004737 016146' JSR PC ,.CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 

608 025446 110265 000000 MOVB R2, TSOBCRS) sLOADS DATA INTO RAM LOCATION 

609 025452 004737 016146' JSR PC ,CHKTSSR ;WAIT FOR READY, NON-AMBIGUOUS 

610 025456 016501 000000 MOV TSBACRS),R1 sREADS WRAP DATA 

611 025462 120102 CMPB R1,R2 ;D0ES WRITTENCWRAP) = READ ? 

612 025464 001404 BEQ 30$ ;B8R IF OK, THEY ARE EQUAL 

616 025466 ERRHRD ERRNO, TSBAM2,EXPREC ;DATA NOT WRAPPED CORRECTLY 
025466 104456 TRAP CSERHRD 
025470 33 . WORD 411 
025472 025774' WORD TSBAM2] 
025474 015304’ WORD EXPREC 

617 025476 30$: 

618 025476 ; ENDSEG 3 <<eceecececce END SEGMENT <cceeececeecc 
025476 é 10000$: 

629 025476 104405 TRAP CSESEG 

620 025500 005204 INC R4 sNEXT ADDRESS 

621 025502 020427 010000 CMP R4, #10000 sEND OF RAM MEMORY CHECK 

oe 025506 001350 BNE 2e5$ ;BR, MORE RAM TO GO 

624 025510 ESCAPE SUB sNO CHECK IF WRITTEN INCORRECTLY 
025510 104410 TRAP CSESCAPE 
025512 000152 TWORD L10046-. 

625 025514 005304 35$: DEC R4 ;SET BACK TO 7777 

626 025516 004737 016146’ 40$: JSR PC ,CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 

627 025522 012702 000377 MOV #000377 ,R2 ;SET UP EXPECTED DATA REGISTER 

628 025526 005001 CLR R1 ;CLEAN OUT REGISTER 

629 025530 010465 000000 MOV R4, TSOBCRS) ;SELECT ADDRESS IN RAM 

630 025534 004737 016146’ JSR PC,CHKTSSR ;WAIT FOR READY (SSR) 

631 025540 016501 000000 MOV TSBACRS),R1 ;PICK UP RAM CONTENTS 

632 025544 120102 CMPB R1,R2 3IS MEMORY STILL ALL ONES 

633 025546 001404 BEQ 43$ ;BR, IF OK CALL ONES) 


637 025550 ERRHRD ERRNO, TSBAM3,EXPREC sMEMORY CHANGED AFTER ALL ONES WRITE 
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: RAM TES 


025704 
025774 
026056 
026136 


026160 
026160 


T 


104406 


000000 
016146' 
000000 
016146’ 
000000 


016270’ 
024646' 


43%: 


45$: 


63%: 


JSR 
BCC 
JMP 
EXIT 


N8 


R2, TSOBCRS) 
PC ,CHKTSSR 
TSBACRS),R1 
R1,R2 

45$ 


ERRNO, TSBAM2 ,EXPREC 


PC ,CHKTSSR 
— 


ERRNO, M2901 ,EXPREC 


R4 
40$ 


PC, TSTLOOP 


;¢ 
sLOCAL TEXT MESSAGES FOR TEST 


M2901: 


TSBAM2: 
TSBAM3: 
TST4ID: 


-ASCIZ 
-ASCTZ 
-ASC1I2Z 
-ASCIZ 
EVEN 
ENOTST 


;WRITE DATA INTO RAM 
sWAIT FOR READY, NON-AMBIGUOUS 
;READ RAM CONTENTS BACK 
sCHECK WITH DATA WRITTEN 
;BR IF OK, DATA IN = DATA OUT 
sWRITTEN DATA NOT = TO READ 
TRAP 
. WORD 
. WORD 
. WORD 
sSCOPE LOOP 
TRAP 


s;WAIT FOR READY, NON-AMBIGUOUS 
sHIGH BYTE READ OF TSBA 

sDATA PATTERN WRITTEN 

sHIGH TO LOW 

;TOTAL OF BYTES IN LOW BYTE 
;SUM OF BYTES WRITTEN TO TSOB = 


;BR IF OK, THEY SHOULD BE 
32901 PROBLEM ADDER 
TRAP 
. WORD 
. WORD 
. WORD 
:SCOPE LOOP 
TRAP 


;OROP RAM ADDRESS POINTER 
sNOT AT LOC. ZERO YET 


CSERHRD 
413 
TSBAM2 
EXPREC 


CsCLP1 


TSBAH 
CSERHRD 
414 
M2901 
EXPREC 
CsCLP1 


PANANANNANNNNN END SUBTEST \ANNAAANASLAANN 
L10046: 


TRAP 


;00 WE NEED TO ITERATE TEST ? 
;BRANCH IF NOT 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP 
- WORD 


CsESU8 


CSExIT 
L10043-. 


‘ TSBA High Byte Not Sum of Last TSDB Write (2901 Error)’ 
‘ Write to TSDB Not Equal to Read of TSBA Low Byte’ 
‘Write To RAM Location Modified Another Location’ 


‘RAM Verification’ 


L10043: 


TSVSA - HARDWARE TESTS MACRO M1115 07 


TEST 4: RAM TEST 


026160 


026220 


104401 


012737 
005037 


104402 


004737 
103404 


104455 
000765 
003644 ' 


027134' 
016322’ 
000024 


002220' 


015604 ' 


002214' . 


MOV @TSTSIO,RO 
JSR PC, TSTSETUP 
MOV #20. ,LOOPCNT 


CLR FATFLG 


JSR PC, SOF INIT 


B9 


-FEB-84 10:58 SEQ 105 


TRAP CseTstT 


-SBTTL TEST S: SECOND INITIALIZATION TEST 


THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST 
#1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 
AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED 10 ZERO. 
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF-TEST SEQUENCE 
(I.E., THAT IT IS REALLY BEING EXECUTED). FOR EACH OF TwO 
SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR 
appl wait, BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE 
ORMED: 


1. EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET 
TO ALL 1'S BY USING yt hy INTO THE TSOB REGISTER (LOW 
BYTE AND MAINTENANCE MODE WORD WRITES). 


2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON 
ae IN INITIALIZATION TEST @1 ARE 


3. @1'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB, 
WHICH SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL 
1‘'S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM 
ADDRESS, SHOULD BE 0. RAM LOCATION O IS VERIFIED BY 
WRITING A WORD OF ZEROS INTO THE TSOB. THE RESULTING 
LOW BYTE OF TSBA SHOULD CONTAIN ALL 1'S. 


4. THE ENTIRE RAM IS SCANNED. LOCATION 0 SHOULD CONTAIN 
ALL 1'S AND THE REMAINING LOCATIONS, EXCEPT FOR THE 
MESSAGE BUFFER IMAGE AREA, SHOULD CONTAIN O. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM. 


TS:: 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 


sCLEAR THE FATAL ERROR FLAG 


BGNSUB s////AA14440/ BEGIN SUBTEST 4/4/4444 /4/4/4/7 


TS. 
TRAP Ccs6sus 


300 A SOFT TO START 


BcS 108 sBRANCH IF O.K, 

ERROF ERRNO, SF IERR, SF IMSG sREPORT ERROR AND DROP DRIVE 
TRAP CSEROF 
-WORD 501 


-WORD SFIERR 


eee 5. "SERUABS NT PERL LYATEBN "HES? 07 FEB-04 10:58 


026222 011644: 
739 026224 012702 177777 108: MOV 
740 026230 CLR 
741 026232 004737 016146' JSR 
742 026236 105065 000000 158: CLRB 
743 026242 004737 016146' JSR 
744 026246 010465 000000 MOV 
745 026252 004737 016146’ JSR 
746 026256 110265 000000 MOVE 
747 026262 005204 INC 
748 026264 020427 007777 CMP 
749 026270 003762 BLE 
750 026272 BRESET 
026272 104433 
751 026274 004737 016146’ JSR 
752 026300 016501 000002 MOV 
753 026304 010102 MOV 
026306 042702 176277 BIC 
755 026312 052702 002200 BIS 
756 026316 020102 CMP 
757 026 001406 BEQ 
761 026322 ERROF 
026322 104455 
026324 000766 
026326 003677 
026330 011712’ 
762 026332 005237 002220' INC 
763 026336 208: CKLOOP 
026336 104406 
764 026340 ESCAPE 
026340 104410 
026342 000170 
765 026344 004737 016146’ JSR 
766 026350 105065 000000 CLRB 
767 026354 004737 016146’ JSR 
768 026360 000000 CLR 
769 026364 012702 000377 MOV 
770 026370 004737 016146’ JSR 
771 026374 110265 000000 MOVB 
772 026400 004737 016146’ JSR 
773 026404 005065 000000 CLR 
774 026410 004737 016146' JSR 
775 026414 116501 000000 MOVE 
776 026420 120102 Cc 
777 026422 001406 BEQ 
778 026424 ERRDF 
026424 104455 
026426 0007 
026430 027222’ 
026432 015304’ 
779 026434 005237 002220' 
780 026440 258: CKLOOP 
026440 104406 
781 026442 ESCAPE 
026442 104410 
026444 
782 026446 012704 000310 MOV 


C9 


@-1,R2 
Ra 


PC ,CHKTSSR 
TSOBCRS) 

PC ,.CHKTSSR 
R4, TSOBCRS) 
PC ,.CHKTSSR 
R2, TSOBCRS) 


R4 

R4,07777 

158 

PC ,,CHKTSSR 
TSSR(RS), R1 

R1,R2 
@tC<HIADOR!OFL>, R2 
@SSRINBA,R2 

R1,R2 

20% 

ERRNO, SFHERR , SFFMSG 
FATFLG 

SUB 

PC ,,CHKTSSR 
PC,CHKTSSR 

R2, TSOBCRS) 
PC.CHKTSSR 
TSOBCRS) 

PC ,.CHKTSSR 


TSBACRS),R1 
R1,R2 


253 
ERRNO, TSADOR ,E xPREC 


FATFLG 
SUB 


0310,R4 


sALL_ONE DATA PATTERN 
sSTARTING RAM ADDRESS 
sWAIT FOR READY, NON-AMBIGUOUS 


sSET MAINTENANCE MODE 

sWAIT FOR READY, NON-AMBIGUOUS 
sSET THE NEXT RAM ADDRESS 
sWAIT FOR READY, NON-AMBIGUOUS 
sLOAD TEST DATA 

sNEXT ADDRESS TO TEST 

sCOMPARE TO LAST ADDRESS 
sBRANCH TILL ALL DATA WRITTEN 
sISSUE A BUS RESET a 


sWAIT FOR READY, NON-AMBIGUOUS 
sGET THE CONTENTS OF TSSR 
sCONTENTS OF TSSR 

s THESE BITS MAY BE SET 


SEQ 106 


SF IMSG 


CSRESET 


sREADY AND NEW DATA SHOULD BE SET 


sCOMPARE EXPECTED TO RECEIVED 
sBRANCH IF COMPARE 
sREPORT A FATAL ERROR 
TRAP 
. WORD 


. WORD 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR IF FLAG SET 


TRAP 
sEXIT IF FATAL ERROR DETECTED 
TRAP 


sWAIT FOR SSR TO SET 

sPUT BACK INTO MAINTENANCE MODE 
sWAIT FOR READY, NON-AMBIGUOUS 
SET ADDRESS BACK TO 0000 


‘ 

sWAIT FOR READY, NON-AMBIGUOUS 
sSHOULD POINT TO RAM O 

sWAIT FOR READY, NON-AMBIGUOUS 
sSELECT LOCATION O 

sWAIT FOR READY, NON-AMBIGUOUS 
sREAD RAM LOCATION SPECIFIED 
sLOCATION SHOULD BE 377 OCTAL 


36R IF OK 
sWASN’' T POINTING TO CORRECT LOC. 


. WORD 
. WORD 


:SET THE FATAL ERROR FLAG 
sSCOPE LOOP 


TRAP 
sNO MORE CHECKS IF FATAL ERROR 
TRAP 


WORD 
sSTART WITH LOC 310 


CSEROF 
502 

SF HERR 
SFFMSG 


CsCLP1 


CSESCAPE 
L10050-. 


Csc.P1 


CSESCAPE 
L10050-. 


FExP* 5. "OBRHABE NEP TAL TYATEON "HEL? 07 -FEB-84 10:58 


016146’ 
000000 


016146" 
000000 


002220' 


000400 


002220' 


017014' 
002220' 


015604" 


177777 
016146’ 
000000 
016146’ 
000000 
016146’ 
000000 


007777 


000002 
016146' 
000002 


308: 


40%: 


108; 


158: 


TSBACRS), R1 
R1,R2 


408 
ERRNO, TSMEM, SFFMSG 


FATFLG 
SUB 


R4 
R4,0400 
30% 


FATFLG 


50$ 
PC ,CKDROP 
FATFLG 


PC, SOF INIT 
Os 


1 
ERRNO, SF IERR , SF IMSG 


@-1,R2 
Ra 


PC,.CHKTSSR 
TSOBCRS) 
PC,.CHKTSSR 
R4,TSOBCRS) 
PC, CHKTSSR 
ie TSDBCRS) 


4 
R4,07777 
15% 
TSSRC(RS) 
PC ,.CHKTSSR 
TSSRC(RS),R1 


SEQ 107 


TT On REST. gy A 000000 
1 - 

sSELECT LOCATION SPECIFIED 
sWAIT FOR READY, NON-AMBIGUOUS 
sREAD LOC CONTENTS 

sCHECK MEMORY FOR 000000 
sBRANCH IF DATA OKAY 

sMEMORY NOT ZERO AFTER a HF 


CSEROF 
«WORD 502 
«WORD TSMEM 

SFFMSG 


sSET THE FATAL ERROR FLAG 
TRAP =«-« CSCLP1 


TRAP CSESCAPE 
WORD 110050- 


sEXIT ON FATAL ERROR 


3LO0K AT NEXT RAM LOC. 
sAT TOP OF RAM ADDRESS SPACE 
sBRANCH TILL ALL MEMORY TESTED 
sNNNNNANANANANNSN END SUBTEST N\ANANNAANANANS 
Li : 
TRAP CsESUB 
:IS FATAL ERROR FLAG SET ? 
he IF -— 
LOOP, TRY TO DROP DEVICE 
EC EAR THE Fata ERROR FLAG 
34/////////7/7/ BEGIN SUBTEST 4/4/4/4/4/////7/7/ 
TS.2: 
TRAP cs6sus 


300 A SOFT og START 


;BRANCH IF O.K 
sREPORT ERROR AND DROP onive 
CSEROF 
"WORD 503 
. WORD SF IERR 
WORD SFIMSG 


sALL_ONE DATA PATTERN 
sSTARTING RAM ADORESS 
sWAIT FOR a NON - AMBIGUOUS 


MODE 
sWAIT FOR READY, NON-AMBIGUOUS 
+SET THE NEXT RAM ADDRESS 
sWAIT FOR READY, NON-AMBIGUOUS 
sLOAD TEST DATA 

sNEXT ADDRESS TO TEST 

sCOMPARE TO LAST ADDRESS 
sBRANCH TILL ALL DATA WRITTEN 
sISSUE A SOFT RESET 

sWAIT FOR READY, NON-AMBIGUOUS 
sGET THE CONTENTS OF TSSR 


TSVSA - HARDWARE TESTS MACRO Mi 
TEST 5S: SECOND INITIALIZATION T 


176277 
002200 


002220’ 


016146' 
000000 
016146' 


000000 
000377 
016146' 
000000 


016146' 


000000 
016146' 
000000 


002220' 


000310 
016146' 


000000 
016146' 
000000 


005237 002220' 


104406 
868 027066 


115 
Est 


07-FEB-84 10:58 


25%: 


40%: 


E9 


R1,R2 
@tC<HIADOR!OFL>,R2 
@SSR!NBA,R2 

R1,R2 


20% 
ERRNO, SFHERR , SFFMSG 


FATFLG 
SUB 


PC, CHKTSSR 
TSOB 


PC ,,CHKTSSR 
TSBACRS),R1 

R1,R2 

253 

ERRNO, TSADOR , EXPREC 


FATFLG 
suB 


@310,R4 
R 


2 
PC, CHKTSSR 
R4, TSOBCRS) 
PC .CHKTSSR 
TSBACRS),R1 
R1,R2 
40% 
ERRNO, TSMEM, SFFMSG 


FATFLG 


SUB 


SE@ 108 


sCONTENTS OF TSSR 

sTHESE BITS MAY BE SET 

sREADY AND NEW DATA SHOULD BE SET 
sCOMPARE EXPECTED TO RECEIVED 
sBRANCH IF COMPARE 

sREPORT A FATAL ERROR 


TRAP CSERDOF 
-WORD 504 
-WORD SFHERR 
-WORD SFFMSG 
sSET FATAL ERROR FLAG 
;LOOP ON ERROR IF FLAG SET 
TRAP CSCLP1 
;EXIT IF FATAL ERROR wt US 
CSESCAPE 
Noro L10051-. 
sWAIT FOR SSR TO SET 
sPUT BACK INTO MAINTENANCE MODE 
;WAIT FOR READY, NON-AMBIGUOUS 
sSET ADORESS BACK TO 0000 
3 
sWAIT FOR READY, NON-AMBIGUOUS 
;SHOULD POINT TO RAM O 
sWAIT FOR READY, NON-AMBIGUOUS 
sSELECT LOCATION 0 
sWAIT FOR READY, NON-AMBIGUOUS 
;READ RAM LOCATION SPECIFIED 
sLOCATION SHOULD BE 377 OCTAL 
3;8R IF OK 
3WASN’ T POINTING TO CORRECT LOC. 
RAP CsEROF 
-WORD 504 
. WORD TSADOR 
. WORD EXPREC 
;SET THE FATAL ERROR FLAG 
sSCOPE LOOP 
TRAP CSsCLP1 
sNO MORE CHECKS IF FATAL ERROR 
TRAP CsESCAPE 
-WORD 1L10051-. 


sSTART WITH LOC 310 
sMEMORY EXPECTED SHOULD BE 000000 
sWAIT FOR READY, NON-AMBIGUOUS 
sSELGCr LOCATION SPECIFIED 
sWAIT FOR READY, NON-AMBIGUOUS 
sREAD LOC CONTENTS 

sCHECK MEMORY FOR 000000 
sBRANCH IF DATA OKAY 

sMEMORY NOT ZERO AFTER a 


CSEROF 
-WORD 504 
-WORD TSMEM 
.WORD  SFFMSG 
;SET THE FATAL ERROR FLAG 
TRAP CscLPL 


sEXIT ON FATAL ERROR 


TSVSA - 
TEST 5: 


HARDWARE 
SECOND 


027066 
027070 
027072 
027074 
027100 


027102 
027102 
027102 


027222 


027264 
027264 
027264 


F9 


TEST M 07 -FEB-84 10:58 
INETEALIZATION teat . SEQ 109 
104410 TRAP CSESCAPE 
000012 ~- WORD L10051-. 
005204 INC R4 ;LO0K AT NEXT RAM LOC. 
020427 000400 CMP R4, 0400 sAT TOP OF RAM ADDRESS SPACE 
001353 BNE 308% sBRANCH TILL ALL MEMORY TESTED 
ENODSUB ENANNANNNANANN END SUBTEST \ANANAANAAAAA 
104403 “ TRAP = CSESUB 
005737 002220' TST FATFLG 31S FATAL ERROR FLAG SET ? 
001402 BEQ 50$ sBRANCH IF NOT 
004737 017014’ JSR PC ,CKDROP 3NO LOOP, TRY TO DROP DEVICE 
004737 016270’ 508: JSR PC, TSTLOOP :;SHOULD WE DO ITERATIONS ? 
103002 Bcc 60$ ;BRANCH IF NOT 
000137 026200’ JMP TSLOOP 3LOOP UNTIL COUNT EXPIRED 
608: EXIT TST s;ALL DONE {HIS TEST 
104432 TRAP CSExIT 
000132 . WORD L10047.-. 
3° 
sLOCAL TEXT MESSAGES FOR TEST 
g° 
105 170 164 TSTSIO: .ASCIZ ‘Extended Initialization’ 
111 156 143 TSMEM: .ASCIZ ‘Incorrect RAM Date After Init’ 
111 156 143 TSADOR: — ‘Incorrect RAM Address After Init’ 
ENOTST 
10047: 
104401 TRAP CseETstT 


-SBTTL TEST 6: COMMAND REJECT 


THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED OVE TO THE NEED BUFFER ADORESS 
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR 
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC 
COMMAND DECODING AND DATI DMA HANDLING. THIS TEST CONTAINS TwO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE CIE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMAND; SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. SUBTEST 1 
SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED 
INTERRUPTS. THE COMMAND WORD IN THE COMMAND BUFFER IS 
INITIALIZED TO 100000 (OCTAL) AND THE REMAINING THREE WORDS IN 
THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. THEN THE 
FOLLOWING SEQUENCE IS PERFORMED: 


1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR; 
PROPER INITIAL CONDITIONS ARE VERIFIED. 


G9 


TSVSA - HARDWARE TESTS MACRO M1113 07-FEB-84 10:58 SEQ 110 
TEST 6: COMMAND REJECT | 
918 3 
919 3 2. TSOB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO 
aoe ; START PROCESSING. 
i 
922 3 3. THE PROGRAM WAITS FOR SSR TO SET; IF SSR DOES NOT SET, 
ba 4 3 AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED. 
Hy 
925 ; 4. THE CONTENTS OF TSSR ARE CHECKED. TSSR IS CORRECT IF 
926 3 IT CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6 
= 44 3 DEPENDS UPON THE STATE OF THE TAPE TRANSPORT). 
; 
929 3 S. THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN 
930 3 THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2) 
931 3 PLUS 10 COCTAL); I.€., TSBA SHOULD POINT TO THE WORD 
932 ; JUST AFTER THE COMMAND PACKET (NOTE THAT 4 COMMAND 
eos 3 PACKET WORDS ARE ALWAYS FETCHED). 
; 
935 3 6. USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS, THE 
936 ; COMMAND IMAGE BLOCK IN THE M7455’'S RAM (LOCATIONS 
937 : 201-210 COCTAL)) ARE CHECKED; THE IMAGE SHOULD CONTAIN 
938 ry A COPY OF THE FOUR COMMAND PACKET WORDS AS SET UP IN 
ps44 3 CPU MEMORY. 
3 
941 : 7. THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED 
942 3 TO THE NEXT PATTERN NOT CONTAINING WRITE 
943 : Area D gents Lo OR IE. THE REMAINING THREE WORD OF THE 
944 8 COMMAND BUFFER ARE SEQUENCED WITH PSEUDO-RANDOM DATA. 
945 3 IF THE COMMAND WORD HAS NOT REACHED ITS MAXIMUM VALUE 
oat 3 (177777+1), THE TEST SEQUENCE IS REPEATED. 
. 
338 
a 
950 : SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM 
951 3 CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN 
os ; VERIFIES THAT AN INTERRUPT OCCURS. 
Q 
954 027266 BGNTST 
027266 T6:: 
959 027266 012700 030523' MOV @TST6ID,RO sASCII MESSAGE TO IDENTIFY TEST 
960 027272 004737 016322’ JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
961 027276 012737 009024 002214’ MOV 20. ,LOOPCNT sPERFORM 20 ITERATIONS 
962 027304 T6LOOP : 
963 027304 BGNSUB 37//////4//// BEGIN SUBTEST //4///////7/7/ 
027304 T6.1: 
_ 027304 104402 TRAP cs6sus 
965 027306 SETPRI #@PRIOO ;LOWER PRIORITY TO ALLOW INTERRUPTS 
027306 012700 000000 4 oPRIOO RO 
027312 104441 RAP Seerns 
966 027314 012704 030200’ MOV @T6PACKET ,R4 ;GET THE ADORESS OF comme PACKET 
967 027320 012703 002750’ MOV @TSTBLK,RS sBLOCK OF TEST DATA 
968 027324 012314 S$: MOV (R3)+, CRO) s INSERT THE NEXT TEST DATA WORD 
969 027326 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
027326 104404 TRAP CSBSEG 
970 027330 004737 015604’ JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 
971 027334 103405 BCS 108% ;BR IF SOFT INIT = OK 


975 027336 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 


TEST 6: "COMMAND RESEET 
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108: 


002220' 
158: 


002222" 


22%: 


016146' 
000000 


000010 


ERROF 


H9 


ERRNO , SF TERR , SF IMSG 


RO,R1 
ERRNO, T6SSR ,PKTSSR 


FATFLG 
SUB 


INTRECV 
22% 
ERRNO, T6INT ,PKTSSR 


@SC INBA!SSR! TSREJ,R2 
PC, CHKTSSR 
TSSRCRS),R1 

@OFL ,R1 

25% 

@OFL ,.R2 

R2,R1 


30$ 
ERRNO, T6ENBA,PKTSSR 


PC .CHKTSSR 
TSBACRS),R1 
R4,R2 
#10,R2 
R1,R2 


358 
ERRNO, T61TSBA,E xXPREC 


sDEVICE FATAL ERROR wm 
. WORD 
. WORD 


sCLEAR FATAL ERROR FLAG - 
;CLEAR INTERRUPT RECEIVED FLAG 
- AMBIGUOUS 


Ss 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR eee «aie 


. WORD 
- WORD 
. WORD 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG a 


TRAP 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP 


;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF NOT 


TRAP 
. WORD 
. WORD 


sEXPECTED CONTENTS OF TSSR 
sWAIT FOR READY, NON-AMBIGUOUS 
;GET THE CONTENTS OF TSSR 


INE 

sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
s;OKAY IF MATCH 
sNBA NOT SET TO REJECT 

TRAP 

. WORD 

. WORD 
sLOOP ON ERROR ? 

TRAP 


sWAIT FOR READY, NON-AMBIGUOUS 
sGET TSBA REGISTER CONTENTS 
sSTART OF THE PACKET 
sEXPECT TSDA TO PACKET + 10 
sCOMPARE EXPECTED TO RECEIVED 
;ERROR IF NOT EQUAL 

sPRINT THE ERROR € ee 


. WORD 
. WORD 
. WORD 


SEQ 111 


CSERDF 
60 


1 
SF IERR 
SF IMSG 


CSEROF 
602 
T6SSR 
PKTSSR 
CsCLP1 


CSESCAPE 
L10053-. 


CSERHRD 
603 
T6INT 
PKTSSR 


CSERHRD 
604 


T6NBA 
PKTSSR 


CscLPl 


CSERHRD 
605 
TETSBA 
EXPREC 


: COMMAND RE JE 


HARDWARE TEST 


027610 000157 


027614 
027614 
027614 1044035 


027616 005737 
027622 001402 
027624 004737 


027630 
027630 
027630 104402 


027632 

027632 012700 
027636 104441 
027640 012704 
027644 012703 
027650 012314 
027652 

027652 104404 
027654 004737 
027660 103405 
027662 010001 
027664 

027664 104455 
027666 001157 
027670 003644: 
027672 011644’ 
027674 005037 
027700 005037 
027704 004737 
027710 052714 
027714 010465 
027720 004737 
027724 103407 
027726 010001 


010724’ 


177740 
000004 


000002 
003060' 


027324' 


002220' 
017014" 


358: 


40%: 


45$: 


S$: 


10$: 
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19 


PC, CKRAM 
403% 
ERRNO, PK TRAM, RAMERR 


(R3),RO 
@177740,R0 
RO, 04 


FATFLG 
60% 
PC ,CKDROP 


@PRIOO 


@T6PACKET ,R4 
@TSTBLK,R3 
CR3)+, CRO) 


—o 


ROR 
ERRNO, SF IERR, SF IMSG 


FATFLG 
INTRECV 
PC,CHKTSSR 
oBIT7,(R4) 
R4, TSOBCRS ) 
PC ,WAITF 
15% 

RO,R1 


SEQ 112 


sSEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 
sREPORT THE RAM ERROR(S) 

TRAP CSERHRD 


-WORD 606 
«WORD PK TRAM 
-WORD RAMERR 
g<ceecceeccecce END SEGMENT € 66600000 OO CE 
10000$: 
TRAP CSESEG 
sPACKET on WORD 
;GET BITS 
3;D0N'T test WAITE CHARACTERISTICS 
sBRANCH IF OK 


;GET NEXT WORD FROM DATA TABLE 
sREACHED END OF TABLE ? 
;BRANCH IF END OF TABLE 
sCONTINUE TEST WITH NEW DATA 


SNNANNNNNANNNN END SUBTEST \ANANANAAAAAA 
L10053: 
TRAP CsESuB 


sANY FATAL ERRORS ? 
;BRANCH IF NOT 
;TRY TO OROP THE UNIT 


3///////7////7/ BEGIN SUBTEST S/4////////7/7/ 
T6.2: 
TRAP CsBSUB 


;LOWER PRIORITY TO ALLOW INTERRUPTS 
— OPRIOO,RO 
RAP CSsSPRI 
;GET THE ADDRESS OF COMMAND PACKET 
sSTART OF TEST DATA 
sPLACE NEXT DATA WORD IN PACKET 
3>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>> 
TRAP CSBSEG 
300 SOFT INIT OF CONTROLLER 
;6R IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR as ee 


sCLEAR FATAL ERROR FLAG 
sCLEAR INTERRUPT RECEIVED FLAG 
sWAIT FOR READY, NON-AMBIGUOUS 
sENABLE INTERRUPTS 

3SET THE PACKET es 

sWAIT FOR SSR TO S 

:BR IF CARRY SET C6000 RE TURN ) 
sSAVE CONTENTS OF TSSR 


TSVSA - HARDWARE TESTS 
TEST 6: COMMAND REJECT 


1070 


1071 
1072 


1073 


027730 
027730 
027732 
027734 
027736 
027740 
027744 
027744 
027746 
027746 
027750 
027752 


104455 
001140 
030235’ 
011656' 
005237 


015320' 


104405 
011300 
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002220' 
15$: 
002222' 
102206 228: 
016146' 
000002 
000100 
000100 
25%: 
308: 
016146’ 
000000 
000010 
010724’ 35$: 
40$: 


ERROF 


JI 


ERRNO, T6SSR ,PKTSSR 


FATFLG 
SUB 


INTRECV 
22% 
ERRNO, T6NINT ,PKTSSR 


@SC!NBA!SSR! TSREJ,R2 
PC ,.CHKTSSR 
TSSRCRS),R1 

@OFL .R1 


30$ 
ERRNO, T6NBA ,PKTSSR 


PC ,.CHKTSSR 
TSBACRS),R1 
R4,R2 
#10,R2 
R1,R2 


35$ 
ERRNO, T6TSBA,EXPREC 


PC,CKRAM 
40$ 
ERRNO, PK TRAM, RAMERR 


CR3),RO 


SEQ 113 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
a 608 
«WORD T6SSR 
«WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
368Y-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
2 L10054-. 
;D0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
;REPORT ERROR IF NO INTERRUPT 
TRAP CSERHRD 
-WORD 609 
- WORD T6NINT 
PKTSSR 


sEXPECTED CONTENTS OF TSSR 
sWAIT FOR READY, NON-AMBIGUOUS 
;GET THE CONTENTS OF TSSR 

3IS OFF-LINE BIT SET ? 

;BRANCH IF NOT OFF-LINE 

3SET OFF-LINE IN EXPECTED DATA 
3D0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 

sNBA NOT SET TO REJECT 


TRAP CSERHRD 
«WORD 610 
-WORD PKTSSR 

;LOOP ON ERROR ? 
TRAP CsCLP1 

sWAIT FOR READY, NON-AMBIGUOUS 

s;GET TSBA REGISTER CONTENTS 

sSTART OF THE PACKET 

sEXPECT TSDA TO PACKET + 10 

sCOMPARE EXPECTED TO RECEIVED 

sERROR IF NOT EQUAL 

sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
-WORD 611 
-WORD T6TSBA 
«WORD EXPREC 


;SEE IF DATA IN RAM IS CORRECT 
;BRANCH IF PACKET IN RAM IS CORRECT 
sREPORT THE RAM ERROR(S) 


TRAP CSERHRD 
WORD 61 
. WORD PK TRAM 
. WORD RAMERR 
p<eeccecececeee END SEGMENT <ccececeeccccccc 
10000$: 
AP CSESEG 


“TR 
;NEXT PACKET COMMAND WORD 


TSVSA 
TEST 6: COMMAND REJECT 


1115 


HARDWARE TEST 


030110 
030114 
030120 
030122 
030126 
030132 
030134 


030140 
030140 
030140 
030142 


030210 
030235 
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177740 
000004 
000002 
003060' 
027650' 


002220' 


017014’ 
016270' 


027304 ' 


BIC 


4S$: CMP 


JMP 
62%: EXIT 


K9 


#177740,R0 
RO, #4 
4s$ 

#2,R3 
R3,@TBLEND 
Sos 

S$ 


FATFLG 
60$ 


PC ,CKDROP 
PC, TSTLOOP 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


-BLK 
T6PACKET: 


10-<, -TSV2E7> 


0 

052525 
125252 
052525 


3? 
sLOCAL TEXT MESSAGES FOR TEST 


T6NBA: .ASCIZ 
T6SSR: .ASCIZ 
T6INT: .ASCIZ 


T6NINT: .ASCIZ 

T6TSBA: .ASCIZ 

TST6ID: .ASCIZ 
EVEN 
ENDTST 


‘Command Not Re j 
‘Contents of TS 


SEQ 114 


sGET BITS 0-4 

sO0N‘7 TEST WRITE CHARACTERISTICS 
sBRANCH IF NOT WRITE CHARACTERISTICS 
ar a WRITE CHARACTERISTCS 
sHAVE WE COMPLETED DATA TABLE ? 
sBRANCH IF ALL TESTED 

STEST WITH NEXT DATA 


sNANANNANANNAN END SUBTEST \ANANAANNAANA 
L10054: 


‘Incorrect TSBA Address After Packet Write’ 


‘Command Re ject’ 


TRAP CsESsuB 
sANY FATAL ERRORS ? 
;BRANCH IF NOT 
;TRY TO OROP THE UNIT 
;SHOULD WE DO ITERATIONS ? 
;BRANCH IF NOT 
;LOOP UNTIL COUNT EXPIRED 
sALL DONE THIS TEST 
TRAP CSsExIT 
-WORD L10052-. 
sCOMMAND PACKET FOR TEST 
;WILL CONTAIN VARIABLE COMMANDS 
Incorrect After Write Packet’ 
‘Unexpected Interrupt Received On Write Packet’ 
‘Expected Interrupt Not Received On Write Packet’ 
L100S5e: 
TRAP CSETST 


-SBTTL TEST 7: WRITE CHARACTERISTICS 


COMMAND. 


THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 
IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER 
MESSAGE PACKET IS STORED, WHERE APPROPRIATE. 
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 


THIS TEST DOES NOT 


Test 7: "URTTE EMARRCTERTSTICS See 07 -FEB-84 10:58 


DATA BITS OPERATE PROPERLY 
VERIFIED IN SUBSEQUENT TES 
TEST HAVE THE INTERRUPT ENABLE ( CIE) BIT CLEARED TO ZERO, SO NO 


033501’ 


034033' 
016322’ 
000024 


034062' 


000000 
002762' 


032700’ 
000010 


015604' 


002220' 
002222' 
000000 


016146’ 


002214’ 


T7LOOP ; 


S$: 


108; 


INTERRUPTS SHOULD BE GENERATED. 


LOY 


SE@ 115 


a * ty Us ny OF THESE BITS IS 


COMMANDS EXECUTED IN THIS 


HOWEVER, THE PROGRAM RUNS AT 


PROCESSOR PRIORITY 0, WITH THE INTERRUPT "SERVICE ROUTINE SET UP 


TO FLAG UNEXPECTED INTERRUPTS. 


IF AN INTERRUPT OCCURS, A 


PROBLEM EXISTS IN EITHER THE PDP-11 BUS INTERFACE SECTION OR IN 
THE ROM OR PIPELINE. 


THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES, C 


OMMAND 
DECODING, DMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING. 


THIS 


IS THE FIRST TEST IN WHICH DATO OMA CYCLES (FOR STORING THE 
MESSAGE PACKET) ARE PERFORME 

TEST (I.E, ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 
THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M7455 MODULE. 


JSR 
SETPRI 


@TST7ID,RO 
PC, TSTSETUP 
#20. ,LOOPCNT 


PC, T7REST 
@PRIOO 
@TSTBLK+10. ,R3 


@T7PACKET ,R4 
08. ,PKBCNTC(R4 ) 


PC, SOF INIT 
10$ 


RO,R1 
ERRNO, SF IERR, SF IMSG 


FATFLG 
INTRECV 

R4, TSOBCRS) 
PC,CHKTSSR 
S$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


ANY ERRORS IN THE BODY OF THE 


T7:: 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 


ALAA — SUBTEST ////////4//7/7/ 


“TRAP CsBSuUB 
;SET PACKET TO START-UP VALUES 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
i @PRIOO,RO 


CsSPRI 
sSTART OF TEST DATA 
;GET THE ADDRESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 


TRAP CSBSEG 

300 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR DURING INIT 
TRAP CSsERDF 
-WORD 701 
«WORD SFIERR 
-WORD SFIMSG 

;CLEAR FATAL ERROR FLAG 

:CLEAR INTERRUPT RECEIVED FLAG 

;SET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

3BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 702 
«WORD T7SSR 


FELT" i. "AQVEPEATRALYenISPHRSTINIS 07-FEB-04 10150 


1220 
1221 


1222 
1223 


1224 
1228 


011656’ 
0052 


015320' 


104405 


002220' 
15$: 
002222 
000002 223: 
000200 
000100 
000100 
25%: 
30$: 
016146’ 
000000 
032726' 
000200 000012 
002224' 
000002 
000016 32$: 
010724' 35$: 
40$: 


ENDSEG 


M9 


FATFLG 
SEG 


INTRECV 
22% 
ERRNO, T7INT ,PKTSSR 


Ha oR1 


30$ 
ERRNO, T7NBA,PKTSSR 


PC ,.CHKTSSR 
TSBACRS),R1 
@T7BFR,R2 
@BIT7,xST2CR2) 
32$ 


35 
ERRNO, T7TSBA,EXPREC 


PC,CKRAM 
40$ 


ERRNO, PKTRAM,RAMERR 


SEQ 116 
‘ PKTSSR 
3SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
sBY-PASS SUBTEST IF on™ - ee 
CSESCAPE 
10000$-. 
;0ID AN INTERRUPT OCCUR ? 
sBRANCH IF NOT 
TRAP CSERHRD 
. WORD 703 
» WORD T7INT 
P PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
3IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
iSET OFF-LINE IN EXPECTED DATA 
;D0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
. WORD 704 
» WORD T7NBA 
-WORD PKTSSR 
;LOOP ON ERROR ? 
TRAP CSCLP1 


sWAIT FOR READY, NON-AMBIGUOUS 
;GET TSBA REGISTER CONTENTS 
sSTART OF THE DATA BUFFER 

:IS EXTENDED FEATURES BIT SET ? 
sBRANCH IF EXTENDED FEATURES OFF 
;SET EXTENDED FEATURES FOR SUBTEST 6 
sEXTRA WORD IF SPECIAL FEATURES 
sEXPECTED CONTENTS OF TSDA 
sCOMPARE EXPECTED TO RECEIVED 
sERROR IF NOT EQUAL 

sPRINT THE ERROR &€ EXPD/RECV 


TRAP CSERHRD 
«WORD 705 
-WORD T7TSBA 
«WORD EXPREC 


;SEE IF DATA IN RAM IS CORRECT 
;BRANCH IF PACKET IN RAM IS CORRECT 
sREPORT THE RAM ERROR(S) 


TRAP CSERHRD 
.»WORD 706 
-WORD PKTRAM 
.WORD RAMERR 
g<<eeee eee eee END SEGMENT <<cceeeeeeecec 
10000$: 
TRAP CSESEG 


N9 
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031070 


031074 
031074 
031074 


031076 


031110 


031110 
031110 
031110 


031112 
031112 
031116 
031120 
031124 
031130 


031212 


104455 
033501’ 


000006 
003060' 


030614’ 


002220’ 
017014’ 


000000 


032746' 
032700' 
034062’ 


015604 ' 


00222?" 


000002 
000000 
016060’ 


MOV (R3)+, PKBCNTCR4) ;SET THE TEST WORD 
CMP R3,@TBLEND sHAS ALL DATA BEEN TESTED ? 
BHIS 55$ ;BRANCH IF ALL DATA DONE 
JMP 5$ sBRANCH TILL BACK TO ZERO 
5558: ENDSUB sNNANNANANNANN END SUBTEST \A\NNANNNAAANA 
L10056: 
TRAP CsESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 60$ ;BRANCH IF NOT 
JSR PC ,CKDROP ;TRY TO OROP THE UNIT 


60$: 

3 

3 

sTEST 7, SUBTEST 2 


: 
;CHECK THAT UNUSED BITS BEING SET CAUSES 
;WRITE CHARACTERISTICS COMMAND TO BE REJECTED 


: 
3- 


BGNSUB TAAL = SUBTEST //4/4//////4//7/ 
2: 
TRAP Cs8SuU8 
SETPRI #PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV #PRIOO,RO 
TRAP CssPRI 
MOV @T72DATA,RS ;START OF TEST DATA FOR SUBTEST 
5$: MOV @T7PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
JSR PC, T7REST sRESTORE PACKET TO STARTING VALUES 
BGNSEG ;>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 
JSR PC,SOF INIT 3:00 SOFT INIT OF CONTROLLER 
BCS 10$ ;68R IF SOFT INIT = OK 
MOV RO,R1 :SAVE CONTENTS OF TSSR 
ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 
«WORD 707 
. WORD SFIERR 
. WORD SF IMSG 
10$: CLR INTRECV ;CLEAR INTERRUPT RECEIVED FLAG 
MOV R4,RO ;START OF THE COMMAND PACKET 
ADD (R3),RO ;OFFSET TO THE DATA WORD TO TEST 
BIS 2(R3),CRO) ;SET THE DATA BITS TO BE TESTED 
MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS 
JSR PC, WAITF sWAIT FOR SSR TO SET 
BCS 15$ ;8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERROF ERRNO, T7SSR,PKTSSR ;DEVICE FATAL SSR sles TO SET 
TRAP CSERDF 
. WORD 708 


. WORD T7SSR 


TSV 
TEST 


031214 
031216 


SA - HARDWARE TESTS 
7; WRITE 


011656’ 


MACRO M1113 07-FEB-64 10:58 
CHARACTERISTICS 


002222' 


000002 
102206 
000100 


000100 


002000 


002000 


000004 
032762’ 
031124° 


158; 


228: 


253: 


358%: 


578: 


CKLOOP 
ESCAPE 
Tst 


BEQ 
ERRHRD 


B10 


SEG 


INTRECV 
228 
ERRNO, T7INT,PKTSSR 


TSSA(RS),R1 
@SC!SSR!TSREJ!INBA,R2 


30% 
ERRNO, T72REJ,PKTSSR 


ONBA,R1 
35% 
ERRNO, T72NBA,PKTSSR 


04,R3 
R3, @T 72D0NE 
57% 

S$ 


3 

sTEST 7, SUBTEST 3 
é 

sCHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 


SEQ 118 
.WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCcLP1 
s8Y-PASS CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
: 10000$-. 
s0ID0 AN INTERRUPT OCCUR ? 
sBRANCH IF NOT 
TRAP CSERMRO 
-WORD 709 
«WORD T7INT 
WORD PKTSSR 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 

sDATA FROM TSSR 

sFIND BITS IN ERROR 

sIS NBA ONLY BIT IN ERROR ? 
s00N'T PRINT ERROR IF NBA ONLY BAD BIT 
sCOMMAND NOT REJECTED 


TRAP CSERHRD 
«WORD 710 
«WORD T72REJ 
«WORD PKTSSR 
sLOOP ON ERROR ? 
TRAP CsCLP1 
sIS NBA BIT SET ? 
sOKAY IF NBA SET 
sNBA NOT SET 
TRAP CSERHRD 
«WORD 711 
-WORD T72NBA 
.WOPD PKTSSR 
gcccecccececcee END SEGMENT <eeceeeeeceece 
100008: 
TRAP CSESEG 


sPOINT TO NEXT DATA PAIR 
sCOMPARE TO END OF TEST DATA 
sBRANCH IF ALL DATA TESTED 
sBRANCH TILL BACK TO ZERO 


BNNNNANNANANANSN END SUBTEST \ANANAANANNAA 
10057: 
TRAP CsESUB 


C10 


TSVSA - 4 7 -FEB- 
Test 7, URETE EMARRCTERTE TEES tts 07 -FEB-84 10:58 =e ts 
et 1IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 
a 
1362 :- 
1363 
1364 031362 BGNSUB 34//////////7/ BEGIN SUBTEST S///44///4//7/7/ 
031362 77.3: 
1365 031362 104402 TRAP Cs6SuB8 
1366 031364 SETPRI O@PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
031364 012700 000000 MOV @PRIOO,RO 
031370 104441 TRAP CSSPRI 
1367 031372 012703 000001 MOV @1,R3 sSTARTING BYTE COUNT 
1368 031376 012704 032700’ S$: MOV @T7PACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 
54 031402 004737 034062’ JSR PC, T7REST sRESTORE PACKET TO STARTING VALUES 
1371 031406 BGNSEG >>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
1872 031406 104404 TRAP CSBSEG 
- 1373 031410 004737 015604’ JSR PC,SOF INIT 300 SOFT INIT OF CONTROLLER 
1374 031414 103405 BCS 108% ;6R IF SOFT INIT = OK 
1378 031416 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1379 031420 ERROF ERRNO, SF IERR, SF IMSG sDEVICE FATAL ERROR DURING INIT 
031420 104455 TRAP CSERDF 
031422 001310 .WORD 712 
031424 003644’ . WORD SF IERR 
031426 011644’ . WORD SF IMSG 
1380 031430 005037 002222’ 108: CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 
1381 031434 010364 000006 MOV R3,PKBCNT(R4) s INSERT THE BYTE COUNT FOR TEST 
1382 031440 010465 000000 MOV R4,TSOBC(RS) 3SET THE PACKET ADORESS 
1383 031444 004737 016060’ JSR PC ,WAITF sWAIT FOR SSR TO SET 
1384 031450 103405 Bcs 153 368R IF CARRY SET (GOOD RETURN) 
1385 031452 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1389 031454 ERROF ERRNO, T7SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
031454 104455 TRAP CSEROF 
031456 001311 .WORD 713 
031460 033501’ . WORD T7SSR 
031462 011656’ . WORD PKTSSR 
1390 031464 158: CKLOOP sLOOP ON ERROR, IF FLAG SET 
031464 104406 TRAP CsCLPi 
1391 031466 ESCAPE SEG sBY-PASS SUBTEST IF FATAL ERROR 
031466 104410 TRAP CSESCAPE 
031470 000116 . WORD 10000$-. 
1392 031472 005737 002222’ TST INTRECV :0I0 AN INTERRUPT OCCUR ? 
1393 031476 001404 BEQ 223 sBRANCH IF NOT 
1397 031500 ERRHRD ERRNO, T7INT,PKTSSR 
031500 104456 TRAP CSERHRD 
031502 001312 . WORD 714 
031504 033661’ .WORC T7INT 
031506 011656’ . WORD PKTSSR 
1398 031510 016501 000002 223: MOV TSSRCRS),R1I 3GET THE CONTENTS OF TSSR 
1399 031514 012702 102206 MOV @SC!SSR! TSREJ!NBA,R2 sEXPECTED CONTENTS OF TSSR 
1400 031520 032701 000100 BIT OOFL ,R1 sIS OFF-LINE BIT SET ? 
1401 031524 001402 BEQ 25% sBRANCH IF NOY OFF-LINE 
1402 ©31526 052702 000100 BIS OOFL ,R2 3SET OFF-LINE IN EXPECTED DATA 
1403 931532 020201 253%: CMP R2,R1 sD0ES EXPECTED MATCH RECEIVED ? 
1404 031534 001414 BEQ 308 ;OKAY IF MATCH 


1405 031536 010100 MOV R1,RO sDATA FROM TSSR 


Tete 7, "ORRYEPEnARRCPeRPOCRR SITS 07 -FEB-84 10:58 


1406 
1407 
1408 
1412 


031610 
031612 
031616 
031620 


031624 
031624 
031624 


031626 
031626 
031626 


031630 
031630 
031634 
031636 
031642 
031646 


031652 


002000 


000006 
031376' 


000000 
032746' 


032700' 
034062’ 


015604" 


308: 


3538: 


578: 


3¢ 


D10 


R2,RO 
RO, ONBA 


30% 
ERRNO, *73REJ,PKTSSR 


ONBA,R1 
35$ 
ERRNO, T72NBA,PKTSSR 


R3 
R3,06 
57$ 
S$ 


3 
sTEST 7, SUBTEST 4 


; SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
sREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 


5%: 


BGNSUB 


SETPRI 


@PRIOO 


@T72DATA,R3 
@T7PACKET ,R4 
PC, T7REST 


PC,SC: INIT 
10% 


RO,R1 
ERRNO, SF IERR, SF IMSG 


SEQ 120 


sFINO BITS IN ERROR 

sIS NBA ONLY BIT IN ERROR ? 

sDON’'T PRINT ERROR IF NBA ONLY BAD BIT 
sCOMMAND NOT REJECTED 


TRAP CSERHRD 
» WORD 715 
- WORD T73REU 
-WORD PKTSSR 
sLOOP ON ERROR ? 
TRAP CSCLP1 
31S NBA BIT SET ? 
sOKAY IF NBA SET 
sNBA NOT SET 
TRAP CSERHRD 
. WORD 716 
- WORD T72NBA 
- WORD PKTSSR 
gceececececcececcece END SEGMENT <eeeeceeeecee 
100005: 
TRAP CSESEG 


sNEXT BYTE COUNT 

sTESTED ALL INVALID ? 
sBRANCH IF TEST DONE 
sBRANCH TILL BACK TO ZERO 


ENNNANAANNSANNS END SUBTEST \NNNNANAANNAN 
L10060: 
TRAP CsESuUB 


s//4A044/404/4 BEGIN SUBTEST 4/4/4444 ////7/ 
77.4: 


TRAP — C$BSUB 
;LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV @PRIOO RO 

TRAP — C$SPRI 


sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


300 SOFT INIT OF CONTROLLER 

:BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 


TRAP CSERDF 


TSVSA - HARDWARE TEST 
TEST 7: WRITE CHARAC 


002222" 
000001 032710’ 
000000 


016060' 


002222' 


000002 
102206 
000100 


000100 


002000 


002000 


108: 


158: 


228: 


35%: 


feateties eee 07-FEB-84 10:58 


CKLOOP 
BIT 
BNE 
ERRHRD 


ENDSUB 


E10 


INTRECV 


RO,R1 
ERRNO, T7SSR ,PKTSSR 


SUB 


INTRECV 
228 
ERRNO, T7INT ,PKTSSR 


TSSRCRS),R1 
@SC!SSR! TSREJINBA,R2 
OOFL .R1 


30% 
ERRNO, T74REJ,PKTSSR 


a R1 
ERRNO, T72NBA,PKTSSR 


SEQ 121 


«WORD 717 
-WORD SFIERR 


-WORD SFIMSG 
sCLEAR INTERRUPT RECEIVED FLAG 
sMAKE ADDRESS ODD 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
sB8R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR roe See 


CSEROF 
«WORD 718 
«WORD T7SSR 


. WORD 
sLOOP ON ERROR, IF FLAG ai. 
3BY-PASS SUBTEST IF FATAL ERROR 

TRAP 


;0I0 AN INTERRUPT OCCUR ? 
;BRANCH IF NOT 


WORD 719 
«WORD T7INT 
PKTSSR 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
3SET OFF-LINE IN EXPECTED DATA 
sDOES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sDATA FROM TSSR 
sF INO BITS IN ERROR 
:IS NBA ONLY BIT IN ERROR ? 
sD0N’'T PRINT ERROR IF NBA ONLY BAD BIT 
sCOMMAND NOT REJECTED 
TRAP ay 


. WORD 20 
-WORD T74REJ 
-WORD PKTSSR 


TRAP CsCLP1 


sLOOP ON ERROR ? 


:IS NBA BIT SET ? 

s;OKAY IF NBA SET 

sNBA NOT SET 
TRAP CSERHRD 
«WORD 721 
«WORD T72NBA 
-WORD PKTSSR 


zs V\N\NNANANANANSN END SUBTEST N\A\NNNNANNANNA 
” TRAP CSESUB 


F10 


TSVSA - HARDWARE TESTS MACRO M1113 07-FEB-84 10:58 SEQ 122 
TEST 7: WRITE CHARACTERISTICS 
1498 :¢ 
1499 ; 
soot sTEST 7, SUBTEST 5 
3 
1502 sCHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE 
oe sMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 
‘ 
1505 ‘< 
1506 
1507 032054 BGNSUB 3//////////7/7/ BEGIN SUBTEST //////////// 
032054 77.5: 
508 032054 104402 TRAP CsBSUB 
1 
1509 032056 SETPRI o@PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
032056 012700 000000 Pte MOV OPRIOO,RO 
032062 104441 “a TRAP CsSPRI 
1510 032064 012703 000001 MOV #1,R3 sSTARTING BUFFER LENGTH 
1511 032070 012704 032700' S$: MOV @T7PACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 
ty 032074 004737 034062' JSR PC, T7REST sRESTORE PACKET TO STARTING VALUES 
151 
1514 032100 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
1515 032100 104404 TRAP C$BSEG 
1516 032102 004737 015604’ JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 
1517 032106 103405 BCS 10% ;68R IF SOFT INIT = OK 
1521 032110 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1S22 032112 ERROF  ERRNO,SFIERR,SF IMSG sDEVICE FATAL ERROR DURING INIT 
032112 104455 TRAP CSEROF 
032114 001322 . WORD 722 
032116 003644' WORD SFIERR 
032120 011644’ -WORD  SFIMSG 
1523 032122 005037 002222’ 10$: CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 
1524 032126 010337 032714’ MOV R3,T7DATA+4 sINSERT THE BAD MESSAGE LENGTH 
1525 032132 010465 000000 MOV R4, TSOBC(RS) sSET THE PACKET ADDRESS 
1526 032136 004737 016060° JSR PC ,WALTF ;WAIT FOR SSR TO SET 
1527 032142 103405 BCS 15% ;BR IF CARRY SET (GOOD RETURN) 
15286 032144 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1532 032146 ERROF ERRNO, T7SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
032146 104455 TRAP CSEROF 
032150 001323 . WORD 723 
032152 033501’ . WORD T7SSR 
032154 011656’ .WORD PKTSSR 
1533 032156 15%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
032156 104406 TRAP CsCi.P1 
1534 032160 ESCAPE SEG ;BY-PASS SUBTEST IF FATAL : 
032160 104410 TRAP CSESCAPE 
032162 000116 . WORD 10000$-. 
1535 032164 005737 002222’ TsT INTRECV ;D0ID AN INTERRUPT OCCUR ? 
1536 032170 001404 BEQ 22% sBRANCH IF NOT 
1540 032172 ERRHRD ERRNO, T7INT,PKTSSR 
032172 104456 TRAP CSERHRD 
032174 001324 . WORD 724 
032176 033661' . WORD T7INT 
032200 011656' .WORD PKTSSR 
1541 032202 016501 000002 228: MOV TSSRCRS),R1I ;GET THE CONTENTS OF TSSR 
1542 032206 012702 102206 MOV @SC!SSR! TSREJ!NBA,R2 ;EXPECTED CONTENTS £ 1 SSR 


1543 032212 032701 “000100 BIT OOFL ,R1 sIS OFF-LINE BIT SET 


TSVSA - writes 43 T M1113 07-FEB-84 10:58 
TEST 7: WRITE Acferts Ics 


001402 


052702 000100 


002000 


104402 
005737 
001002 


104432 
001576 
004737 034062’ 


002224' 


25%: 


358%: 


57$: 


G10 


30 
ERRNO, T7SREJ,PKTSSR 


ONBA,R1 
35$ 
ERRNO, T72NBA,PKTSSR 


R3 
R3,014, 
57% 

S$ 


a 

sTEST 7, SUBTEST 6 
3 

sTHIS SUBTEST + EXECUTED ONLY IF THE EXTENDED 


sFEATURES 


;OR GREAT 


4$; 


BGNSUB 


SEQ 123 


sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sDATA FROM TSSR 
sFIND BITS IN ERROR 
sIS NBA ONLY BIT IN ERROR ? 
s;D0N’T PRINT ERROR IF NBA ony BAD BIT 
sCOMMAND NOT REJECTED 
TRAP —_— 


~ WORD 

-WORD T7SREJ 

.WORD PKTSSR 
TRAP = CSCLP 1 


sLOOP ON ERROR ? 


sIS NBA BIT SET ? 
s;OKAY IF NBA SET 


sNBA NOT SET 
TRAP mae 
.« WORD 
~ WORD Towa 
-WORD PKTSSR 
p< eeeeceecccece END SEGMENT <ecceeeeeeece 


10000$ : 
TRAP CSESEG 


:NEXT BUFFER LENGTH 

sHAVE ALL BAD VALUES BEEN TESTED ? 

sBRANCH IF ALL TESTED 

;BRANCH TILL BACK TO ZERO 

ENNNNNNANANANN END SUBTEST \ANAANANNANAA 
Ll 2: 


TRAP CsEsus 


S ENABLED (AS DETERMINED BY EXAMINING 

sXST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS). 

sIT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED 
3IF THE Ally COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL 


EXTFEA 
4$ 
TsT 


PC, T7REST 


WALAAAAAALAL a: ® SUBTEST SEGALL SESSGS 


TRAP Cs6SU8 
sIS EXTENDED FEATURES SOFT. Sw SET? 
sBR, IF SOFTWARE SWITCH IS SET (ON) 
sNO EXTENDED FEATURES EXIT THIS TEST 
TRAP CSExIT 
«WORD L10055-. 
sSET PACKET TO START-UP VALUES 


FEET" 5. "CARNEEARRLTengFRBSTINS 07 FEB-04 10:50 


1636 


012700 
104441 
012703 
012704 
012737 
012764 


104404 
004737 


103405 
010001 


015604" 


002220' 
002222" 


000000 
016146' 


002220' 


002222" 


032720’ 
000006 


5$: 


108: 


158: 


22%: 


30$: 


SETPRI 


MOV 
MOV 


CKLOOP 


H10 


@PRIOO 


@TSTBLK+12. ,R3 
@T7PACKET ,R4 
#200, T7SP 

#10. ,PKBCNT(R4) 


PC, SOF INIT 
10% 


RO,R1 
ERRNO, SF IERR , SF IMSG 


FATFLG 
INTRECV 

R4, TSOBCRS) 
PC ,.CHKTSSR 
iS$ 


RO,R1 
ERRNO, T7SSR ,PKTSSR 


FATFLG 
SEG 


INTRECV 
22% 
ERRNO, T7INT,PKTSSR 


TSSRCRS),R1 
R2 


$ 
ERRNO, T7NBA,PKTSSR 


SEQ 124 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV 


TRAP 
sSTART OF TEST DATA 
sGET THE ADDRESS OF COMMAND PACKET 
sSPECIAL BIT SET FOR EXTFEA RAM RO 
sSTART WITH EXTENDED FEATURES VALUE 


g>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>>> 


TRAP CsSB8SEG 

300 SOFT INIT OF CONTROLLER 

:68R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR OURING INIT 
TRAP CSERDF 
. WORD 727 
«WORD SFIERR 
4 SF IMSG 

sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 

3SET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
. WORD 728 
.WORD T7SSR 
.WORD PKTSSR 

3;SET FATAL ERROR FLAG 

;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLPl 

:B8Y-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
. 10000$-. 

;0ID AN INTERRUPT OCCUR ? 

;BRANCH IF NOT 
TRAP CSERHRD 
. WORD 7 
.WORD T?7INT 
e PKTSSR 

;GET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

3IS OFF-LINE BIT SET ? 

;BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

sD0ES EXPECTED MATCH RECEIVED ? 

;OKAY IF MATCH 

:NBA NOT ZERO 
TRAP CSERHRD 
. WORD 730 
. WORD T?7NBA 
-WORD PKTSSR 


sLOOP ON ERROR ? 


TSVSA - 


100004 
032710' 
000000 


110 


HARDWARE TESTS MACRO M1113 07-FEB-84 10:58 
TEST 7: WRITE CHARACTERISTICS 


016146' 
000000 
032726’ 
000200 000012 


000002 
000016 


032710' 
011034" 


032700' 


000006 
003060’ 


032372' 


002220' 
017014’ 


JSR PC ,CHKTSSR 


MOV TSBACRS),R1 
MOV OT7BFR,R2 

BIT + alld xST2CR2) 
BEQ 


328: ADD #14. ,R2 
R1,R2 


35% 
ERRHRD ERRNO, T7TSBA,EXPREC 


353%: MOV @T7DATA,R4 
JSR PC ,,CKRAM2 
ecs 403 


ERRHRD ERRNO,PKTRAM,RAMERR 


403: MOV @T7PACKET ,R4 
ENDSEG 
MOV (R3)+, PKBCNT(R4) 
CMP R3,@TBLEND 
BHIS 558 
JMP 5% 
558: ENDSUB 
TST FAIFLG 
BEQ 60$ 
JSR PC,CKDROP 
608: 
EXIT TsT 


3¢ 
sLOCAL STORAGE FOR THIS TEST 
a 
-BLKB 10-<, -TSV2E7> 
T7PACKET; 
100004 


"WwORD T7DATA 
"wORD 0 


SEQ 125 


TRAP CsCLP1 
sWAIT FOR READY, NON-AMBIGUOUS 
sGET TSBA REGISTER CONTENTS 
sSTART OF THE DATA BUFFER 
sIS EXTENDED FEATURES BIT SET ? 
sBRANCH IF EXTENDED FEATURES OFF 
sEXTRA WORD IF SPECIAL FEATURES 
sEXPECTED CONTENTS OF TSDA 
sCOMPARE EXPECTED TO RECEIVED 
;ERROR IF NOT EQUAL 
sPRINT THE ERROR € ss 


«WORD 731 
«WORD T7TSBA 
-WORD EXPREC 


sSET POINTER FOR CHECKER 
;SEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 
;REPORT THE RAM ERROR(S) 
TRAP CSERHRD 


sRESET PACKET POINTER 
gcecececececceee END SEGMENT <eeeeeeecece$e 
10000$: 
TRAP CSESEG 


;SET THE TEST WORD 

sHAS ALL DATA BEEN TESTED ? 
sBRANCH IF ALL DATA DONE 
s;BRANCH TILL BACK TO ZERO 


SNANNANANNANNN END SUBTEST NANANAANAANAN 
* TRAP CsESUB 


sANY FATAL ERRORS ? 
;BRANCH IF NOT 
sTRY TO OROP THE UNIT 


sALL DONE THIS TEST 
TRAP CsExItT 
-WORD 110055-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITh 4CK 
sADDRESS OF CHARACTERISTICS BLOCK 


HARDWARE TESTS 
: WRITE 


032706 


032710 
032710 
032712 
032714 
032716 
032720 


032722 
032726 


032746 
032746 
032752 
032756 


034062 
034062 
034066 


CHARACTERISTICS 
000010 


000000 037140 
000002 000001 


116 102 
127 122 
127 122 
127 122 
127 122 
127 122 
103 157 
105 170 
125 156 
111 156 
127 162 


012701 032700’ 


MACRO M1113 07-FEB-84 10:58 


J10 


SEQ 126 
.WORD 8. sSTARTING VALUE OF BLOCK SIZE 
T7DATA: sCHARACTERISTICS DATA BLOCK 
. WORD T7BFR sADDRESS OF MESSAGE BUFFER 
“WORD 14. ;LENGTH OF MESSAGE BUFFER 
T7SP:  .wORD 0 sEXTFEA EXTRA WORD 
.WORD 0,0 ; SPACE < 
T7BFR: .BLKW 8. ;MESSAGE BUFFER 


3° 
é 

sTEST DATA FOR SUBTEST TWO 
3 

sDATA HAS FORMAT: 


OFFSET TO TEST WORD IN PACKET 
BITS TO SET FOR TEST 


O,BITS!IBITE!BITSIBITLO!BIT11IBIT12:B1113 
2.BITO 
4,B1T6!:6IT15 


3° 
sLOCAL TEXT MESSAGES FOR TEST 
od 


T72NBA: .ASCIZ ‘NBA Not Set On wereseee WRITE CHARACTERISTICS’ 
T7NBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 
T72REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields’ 
T73REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re ted With Invalid Date Count’ 
T74REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re ted With Invalid Block Address’ 
T7SREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re ted With Invelid Buffer Length’ 
T7SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
T7NINT: .ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
T7INT: ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 
T7TSBA: .ASCIZ ‘Incorrect TSBA Address After WRITE CHARACTERISTICS’ 
TST7ID: ae ‘Write Characteristics’ 

Vv 


3* 


; 

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
; 

° 


T7REST: 
SAVREG ;SAVE THE REGISTERS 


@T7PACKET,R1 sSTART OF THE PACKET 


K10 


TSVSA - HARDWARE TESTS MACRO M1113 07-FEB-84 10:58 SEQ 127 
TEST 7: WRITE CHARACTERISTICS 


1744 034072 
1745 034076 
1746 034102 
1747 034104 


1791 034132 
034132 
1796 034132 
1797 034136 
1798 034142 
1799 034150 
1800 
1801 034150 


012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 


005011 
000207 


104401 


012737 


012704 


100004 
032710' 


000010 
032726' 


000020 


035017' 
016322" 
000024 002214' 


034540' 


TSLOOP : 


MOV #100004 ,(R1)+ sWRITE CHARACTERISTICS WITH ACK 
MOV @T7DATA,CR1)> sADDRESS OF CHAR DATA BLOCK 
C(R1)> ADORESS 


CLR s EXTENDED 
MOV 08. ,CR1L)+ sSIZE OF DATA BLOCK IN BYTES 
~ -—. sADDRESS OF MESSAGE BUFFER 

* 
MOV #16. ,CR1)+ sLENGTH OF MESSAGE BUFFER 
CLR (R1)+ 
CLR (R1) 
RTS PC sRETURN 
ENOTST 

L10055: 


TRAP CsETsT 
-SBTTL TEST 8: VOLUME CHECK 


THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD 
WITHIN THE M7455 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 
CvC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON 
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 
TEST; THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 


THE TEST PROCEEDS AS FOLLOWS: 
1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 


2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CvC=0) 
AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED; 
THE VCK BIT SHOULD BE CLEAR (0). 


3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES 
NOT CHANGE (REMAINS AT 0). 


4. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CvC=1 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD BE CLEAR (0). 


S. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CvC=0 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD REMAIN CLEAR (0). 


BGNTST a, 

MOV @TSTBID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

MOV #20. ,LOOPCNT sPERFORM 20 ITERATIONS 


MOV @TBPACKET ,R4 sPACKET FOR WRITE CHARACTERISTICS 


SVSA - 


T 
TEST 8: VOLUME 


1846 


: VOLUME CHEEK 


004737 
103405 
010001 


011720' 
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015604' 


040000 
000000 
016146’ 


000000 
016146' 


000020 000006 
000002 


5$: 


10$: 


15$: 


25%: 


30$: 


CKLOOP 


L10 


PC, SOF INIT 
10$ 


RO,R1 
ERRNO, SF IERR , SF IMSG 


@BIT14,(R4) 
R4, TSOBCRS) 
PC,.CHKTSSR 
15% 


RO,R1 
ERRNO, T8SSR ,PKTSSR 


TST 
@TSBFR,R2 
@XSOVCK, »XSTOCR2) 


20$ 
TSSRCRS).R 
ERRNO. TONVCK ,PKTMES 


R4, TSOBCRS) 
PC, CHKTSSR 
2e5$ 


RO,R1 
ERRNO, T8SSR,PKTSSR 


TST 


eer 


O$ 
TSSRCRS),R1 
ERRNO, T8NVCK ,PKTMES 


SEQ 128 
s00 SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
«WORD 801 
«WORD SFIERR 
«WORD SFIMSG 


sCLEAR THE CVC BIT 
sSET THE PACKET ADDRESS FOR WRITE CHAR 
sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR ae 


CsEROF 
-WORD 802 
«WORD T8SSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
sEXIT IF FATAL ERROR 
TRAP CSESCAPE 
L10064-. 


. WORD 
sADDRESS OF THE MESSAGE BUFFER 
sIS VOLUME CHECK SET IN XSTO ? 
sOKAY IF VOLUME CHECK TS CLEAR 
sCONTENTS CF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT CLEAR 


TRAP CSERHRD 
“wORD T8NVCK 
"WORD PKTMES 


:LOOP ON ERROR ? 
CsCLP1 


TRAP 
;SET THE PACKET ADDRESS FOR WRITE CHAR 
sWAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR spa * at 


CSEROF 
-WORD 804 
-WORD T8SSR 
.WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 
sEXIT IF FATAL ERROR 
TRAP CSESCAPE 
L10064-. 


- WORD 
sIS VOLUME CHECK SET IN XSTO ? 
sOKAY IF VOLUME CHECK IS SET 
sCONTENTS OF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT SET 


TRAP CSERHRD 
.WORD 805 

. WORD TENVCK 
.WORD PKTMES 


;LOOP ON ERROR ? 


Test” &."VOLUMe CHECK 
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040000 
000000 
016146' 


35$: 
000020 000006 
000002 

40$: 
040000 
000000 
016146' 

45$: 
000020 000006 
000002 

50$: 
016270' 60$: 
034150' 

623: 


MOV 
ERRHRD 


CKLOOP 


JSR 
BCC 
JMP 
EXIT 


M10 


#8IT14,(R4) 
R4, TSDBCRS) 
PC,.CHKTSSR 
35$ 


RO,R1 
ERRNO, T8SSR ,PKTSSR 


TsT 


@xSOVCK ,XSTOCR2) 
40$ 


TSSRCRS),.R1 
ERRNO, T8VCK ,PKTMES 


@BIT14,(R4) 
R4, TSOBCRS) 
PC,.CHKTSSR 
4S$ 


RO,R1 
ERRNO, T8SSR ,PKTSSR 


TST 


@xSOVCK ,XSTOCR2) 
50$ 


TSSRCRS),R1 
ERRNO, T8VCK ,PKTMES 


PC, TSTLOOP 
62$ 
T8LOOP 


TRAP 
sSET THE CvC BIT 


SEQ 129 


CsCLP1 


sSET THE PACKET ADDRESS FOR WRITE CHAR 


sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR a Te 


WORD 
. WORD 
. WORD 

s;LOOP ON ERROR, IF FLAG SET 
TRAP 


;EXIT IF FATAL ERROR 
TRAP 


«WORD Li 
sIS VOLUME CHECK CLEAR IN XSTO ? 


CSEROF 
806 


T8SSR 
PKTSSR 


CsCLP1 
CSESCAPE 


sOKAY IF VOLUME CHECK IS CLEARED 
;CONTENTS OF TSSR FOR ERROR REPORT 


;VOLUME CHECK NOT CLEARED 
TRAP 


. WORD 
sLOOP ON ERROR ? 


TRAP 
sCLEAR THE CVC BIT 
sSET THE PACKET ADDRESS FOR WRIT 
;WAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 
;DEVICE FATAL SSR victcees + aad 


- WORD 

- WORD 

. WORD 
;LOOP ON ERROR, IF FLAG SET 

TRAP 
sEXIT IF FATAL ERROR 

TRAP 


:IS VOLUME CHECK CLEAR IN XSTO ? 
s;OKAY IF VOLUME CHECK IS CLEARED 


CsCLP1 
E CHAR 


CSEROF 
808 
T8SSR 
PKTSSR 
CsCLP1 


CSESCAPE 
L10064-. 


;CONTENTS OF TSSR FOR ERROR REPORT 


;VOLUME CHECK NOT CLEARED 
TRAP 
. WORD 
- WORD 
;LOOP ON ERROR ? 


TRAP 
sSHOULD WE DO ITERATIONS ? 
;BRANCH IF NOT 

;LOOP UNTIL COUNT EXPIRED 
sALL DONE THIS TEST as 


. WORD 


CSsCLP1 


CSExIT 
L10064-. 


Ts 
TES 
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VOLUME CHE 
i* 
;LOCAL STORAGE FOR THIS TEST 
5 
034532 BL 10-<, -TSV2E7> 
034540 TSPACKET: sCOMMAND PACKET FOR TEST 
034540 1 . WORD 100004 ;WRITE CHARACTERISTICS COMMAND 
034542 034550’ . WORD T8DATA sADDRESS OF CHARACTERISTICS BLOCK 
034544 .WORD O 
034546 000010 . WORD 10 sSTARTING VALUE OF COUNTER 
034550 TSDATA: ;CHARACTERISTICS DATA BLOCK 
034550 034562’ WORD T8BFR sADDRESS OF MESSAGE BUFFER 
034552 000000 -WORD O 
034554 000020 . WORD 16. ;LENGTH OF MESSAGE BUFFER 
034556 000000 000000 -WORD 0,0 
034562 TSBFR: .BLKW 8. sMESSAGE BUFFER 
3¢ 
sLOCAL TEXT MESSAGES FOR TEST 
+ i 
034602 126 157 154 T8VCK: .ASCIZ ‘Volume Check Bit Not Cleared’ 
034637 126 157 154 TSNVCK: .ASCIZ ‘Volume Check Bit (VCK) Not Clear After Initialize (xXSTO)’ 
034730 103 157 156 T8SSR: .ASCIZ ‘Contents of TSSR Incorrect After Write Characteristics’ 
035017 126 157 154 TSTSID: ity "Volume Check’ 
. Vv 
035034 ENDTST 
035034 L10064: 
035034 104401 TRAP CSETST 
.SBTTL TEST 9: COMPLETION INTERRUPT 
; THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
3 COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
3 ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
3 CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
3 PROCESSING OF THE IE BIT. 
3 
8 THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT 
8 SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
: CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1). IT 
3 IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN xSTO 
$ OF ANY MESSAGE PACKET: IS SET AND THAT A COMPLETION INTERRUPT IS 
3 GENERATED. FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE 
3 FIRST WITH IE=1 AND THE SECOND WITH IE=0. IT IS VERIFIED THAT 
3 NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
3 IE BIT IN xSTO IS O. 
3 
035036 BGNTST 
035036 P T9:: 
035036 005037 002224' CLR EXTFEA ;CLEAR EXTENDED FEATURES SWITCH 
035042 012700 040061’ MOV #TST9ID,RO sASCII MESSAGE TO IDENTIFY TEST 


N10 


SEQ 130 
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035112 
035114 


035242 
035244 


004737 
012737 


104402 
004737 


012700 
104441 
012703 
012704 
012764 


104404 


016322’ 
000024 


015604" 


002220' 
002222’ 
000000 


016146' 


002220' 


002222' 


002214’ 


S$; 


108: 


158%: 


22%: 


25%: 


JSR 


MOV 
* BGNSUB 


Bil 


PC, TSTSETUP 
#20. ,LOOPCNT 


PC, TOREST 
@PRIOO 


@TSTBLK+10. ,R3 
@TOPACKET ,R4 
08. ,PKBCNT(R4) 


PC, SOF INIT 
108 


RO,R1 
ERRNO, SF TERR, SF IMSG 


FATFLG 

INTRECV 

R4, TSOBCRS) 

PC ,CHKTSSR 

15$ 

RO,R1 

ERRNO, T9SSR,,PKTSSR 


FATFLG 


SEG 


INTRECV 
22% 
ERRNO, TONINT ,PKTSSR 


TSSR(RS),R1 
@SSR,R2 


SEQ 131 


s00 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 


3////////7//7// BEGIN SUBTEST S///S//44//77 
T9.1: 
TRAP Cs8SU8 


sSET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV oPRIOO,RO 


TRAP CSSPRI 
sSTART OF TEST DATA 
sGET THE ADORESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>>> 
TRAP CSBSEG 


300 SOFT INIT OF CONTROLLER 

sR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR won 


C S€ROF 
.WORD 901 
“WORD SFIERR 
“WORD  SFIMSG 
:CLEAR FATAL ERROR FLAG 
sCLEAR INTERRUPT RECEIVED FLAG 
:SET THE PACKET ADORESS 
sWAIT FOR SSR TO SET 
:BR IF CARRY SET (GOOD RETURN) 
:SAVE CONTENTS OF TSSR 
:DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
.WORD 902 
"WORD T9SSR 
‘WORD PKTSSR 
sSET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP = CSCLP1 
:8Y-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
: 100008 -. 
:D2D AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP §CSERHRD 
«WORD 903 


TONINT 


. WORD 
WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
3IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF -L TNE 
3SET OFF-LINE IN EXPECTED DATA 
3sD0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 


TSVSA - 


TEST 9: 


1998 


HARDW 


COMPLE 


035370 
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104456 
001610 
037066’ 
011656' 


104405 


012364 
020327 
103002 
000137 


000006 
003060’ 


035112’ 


002220' 


017014' 
037044' 


002224' 


015604" 


000200 


30%; 


558: 


608: 


708: 


s¢ 


ERRHRD 


Cil 


ERRNO, TONBA,PKTSSR 


C(R3)+, PKBCNT(R4 ) 
R3,@TBLEND 
55% 


S$ 


FATFLG 


60% 

PC ,CKDROP 
TOBFR+12, OBIT7 
70% 


EXTFEA 


3 
sTEST 9, SUBTEST 2 


é 
sCHECK THAT UNUSED BITS BEING SET CAUSES 


SEQ 132 
sNBA NOT ZERO 
TRAP CSERHRD 
«WORD 904 
. WORD TONBA 
WORD PKTSSR 
geceecececccecee END SEGMENT <ceeceeeeeecce 


100008: 
TRAP CSESEG 


sSET THE TEST WORD 

sHAS ALL DATA a TESTED ? 
sBRANCH IF ALL DATA DONE 
sBRANCH TILL BACK TO ZERO 


sNN\NNNANANNNAN END SUBTEST NANANNANAAANS 
10066: 
TRAP CsESUB 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 

sTRY TO DROP THE UNIT 
sEXTENDED FEATURES SET? 
38R IF NO 

3SET EXT FEATURE FLAG 


sWRITE CHARACTERISTICS COMMAND TO BE REJECTED 


53%; 


BGNSUB 


SETPRI 


@PRIOO 


@TI2DATA,RS 
OTOPACKET ,R4 
PC, TOREST 
PC,SOF INIT 
10% 


RO,R1 
ERRNO, SF IERR, SF IMSG 


3//////////// BEGIN SUBTEST 4/4/44 //4//7/7/ 
79.2: 
TRAP Cs8SuU8 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO RO 
TRAP CSSPRI 
sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


3>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>>> 
TRAP CSBSEG 


300 SOFT INIT OF CONTROLLER 

s8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 905 
-WORD SFIERR 
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035372 
035374 


002222' 


000002 
000000 
016060’ 


002222' 


000002 
102206 
000100 


000100 


104405 


062703 000004 
020327 037066’ 
103002 

000137 035342’ 


104403 


10%; 


158: 


228: 


25%: 


30$: 


59%: 


3° 


Dil 


INTRECV 
R4,RO 
(R3),RO 
2(R3),CRO) 
R4, TSOBCRS) 
PC ,WAITF 


iS$ 
RO,R1 
ERRNO, T9SSR,PKTSSR 


SEG 


INTRECV 
228 
ERRNO, TONINT ,PKTSSR 


TSSRCRS),R1 

@SC!SSR! TSREJ!NBA,R2 
L,R1 

308 

ERRNO, T92REU,.PKTSSR 


04 ,R3 
R3,@TI2D0NE 
598 

S$ 


3 

sTEST 9, SUBTEST 3 
é 

sCHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 


SEQ 133 


-WORD SFIMSG 
sCLEAR INTERRUPT RECEIVED FLAG 

sSTART OF THE COMMAND PACKET 

sOFFSET TO THE DATA WORD TO TEST 

sSET THE DATA BITS Ls y TESTED 


sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR —— 


CSEROF 
«WORD 906 
«WORD T9SSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
sBY-PASS CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
. 10000$-. 
sOID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
«WORD 907 
-WORD TONINT 
PKTSSR 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
;COMMAND NOT REJECTED 

TRAP CSERHRO 


«WORD 908 
. WORD T92QREJ 
-WORD PKTSSR 
geeeceececeeece: END SEGMENT <eceeeeeececc 
10000$: 
TRAP CSESEG 


sPOINT TO NEXT DATA PAIR 
sCOMPARE TO END OF TEST DATA 
sBRANCH IF ALL DATA TESTED 
sBRANCH TILL BACK TO ZERO 


S\NNNNANANANNSN END SUBTEST \ANANNANNANAN 
TRAP CsESUB 


E11 
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ps4 sIF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 
A 

2090 + 

2091 

2092 035540 BGNSUB 3///////7//7//7/ BEGIN SUBTEST S/S //////7/7/ 
035540 19.3: 

2098 035540 104402 TRAP C$BSUB 

2094 035542 SETPRI OPRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
035542 012700 000000 MOV oPRIOO,RO 
035546 104441 TRAP CSSPRI 

2095 635550 012703 000001 MOV #1,R3 :STARTING BYTE COUNT 

2096 035554 012704 037010’ S$: MOV @TSOPACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 

ood 035560 004737 040106' JSR PC, TOREST sRESTORE PACKET TO STARTING VALUES 

2099 035564 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>> 

08 035564 104404 TRAP CsBSEG 

2101 035566 004737 015604’ JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 

2102 035572 103405 bcs 10$ 3;68R IF SOFT INIT = OK 

2106 035574 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2107 035576 ERRDOF ERRNO, SF IERR, SF IMSG sDEVICE FATAL ERROR DURING INIT 
035576 104455 TRAP CSEROF 
035600 001615 «WORD 909 
035602 003644' - WORD SFIERR 
035604 011644’ . WORD SF IMSG 

2108 035606 005037 002222’ 108: CLR INTRECV ;CLEAR INTERRUPT RECEIVED FLAG 

2109 035612 010364 000006 MOV R3,PKBCNT(R4 ) sINSERT THE BYTE COUNT FOR TEST 

2110 035616 010465 000000 MOV R4,TSOBCRS) 3SET THE PACKET ADDRESS 

2111 035622 004737 016060’ JSR PC ,WAITF sWAIT FOR SSR TO SET 

2112 035626 103405 6CcS 158 ;BR IF CARRY SET (GOOD RETURN) 

2113 035630 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2117 035632 ERROF ERRNO, T9SSR ,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035632 104455 TRAP CSEROF 
035634 001616 .- WORD 910 
035636 037527' . WORD T9SSR 
035640 011656’ -WORD PKTSSR 

2118 035642 15$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
035642 104406 TRAP CsCLPi 

2119 035644 ESCAPE SEG ;BY-PASS SUBTEST IF FATAL ERROR 
035644 104410 TRAP CSESCAPE 
035646 000056 . WORD 10000$-. 

2120 035650 005737 002222: TST INTRECV :0I0 AN INTERRUPT OCCUR ? 

2121 035654 001004 BNE 22% sBRANCH IF YES 

2125 035656 ERRHRD ERRNO, TONINT,PKTSSR 
035656 104456 TRAP CSERHRD 
035660 001617 . WORD 911 
035662 037616' . WORD TONINT 
035664 011656’ . WORD PKTSSR 

2126 035666 016501 000002 22%: MOV TSSRC(RS),R1 sGET THE CONTENTS OF TSSR 

2127 035672 012702 102206 MOV @SC!SSR! TSREJ!NBA,RO sEXPECTED CONTENTS OF TSSR 

2128 035676 032701 000100 BIT OOFL .R1 3IS OFF-LINE BIT SET ? 

2129 035702 001402 BEQ 25% sBRANCH IF NOT OFF -LINE 

2130 035704 052702 000100 BIS OOFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

2131 035710 020201 25%: CMP R2,R1 sD00ES EXPECTED MATCH RECEIVED ? 

2132 035712 001404 BEQ sOKAY IF MATCH 


30% 
2136 035714 ERRHRD ERRNO, T9SREJ,PKTSSR sCOMMAND NOT REJECTED 
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035714 
035716 
035720 
035722 
035724 


035742 
035742 
035742 


035744 
035744 
035744 


035746 


035774 


002002 
000137 


104403 


104402 


012700 
104441 
012703 
012704 
004737 


004737 


001622 
037527" 


035554’ 


000000 


037052’ 
037010' 
040106' 


015604 ' 


002222" 
000001 
000000 
016060’ 


037020' 


59%: 


3¢ 


Fil 


M1113 07-FEB-84 10:58 


INC R3 

CMP R3, 06 
BGE 598 
JMP 5$ 


; 
;TEST 9, SUBTEST 4 


: 

sSUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
sREJECTEOD IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 

; 


58: 


BGNSUB 


SETPRI @PRIOO 


MOV @TI2DATA,RS 
MOV OTOPACKET ,R4 
JSR PC, TOREST 
JSR PC, SOF INIT 
BCS 10$ 

MOV 


RO,R1 
ERRDF ERRNO, SF IERR,SFIMSG 


CLR INTRECV 

BIS @1,TIDATA 
MOV R4,TSOBCRS) 
JSR PC ,WAITF 
BCS 15s 

MOV 


RO,R1 
ERRDF ERRNO, T9SSR,PKTSSR 


TRAP CSERHRD 
WORD 9 


"WORD TO3REU 
"WORD PKTSSR 


geceececccecece END SEGMENT <ceeecececece 
10000$: 
TRAP CSESEG 


sNEXT BYTE COUNT 

sTESTED ALL INVALID ? 
sBRANCH IF TEST DONE 
sBRANCH TILL BACK TO ZERO 


ENNANNANANANNAN END SUBTEST NANANNANANANN 
L10070: 
TRAP Csesus 


34/////////// BEGIN SUBTEST /////4//4///7/7/ 
79.4: 
TRAP CsBSU8 
;LOWER PRIORITY TO oe 
Vv 


TRAP CsSPRI 
sSTART OF TEST DATA FOR SUBTEST 
;GET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


300 SOFT INIT OF CONTROLLER 

;8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR oe To 


CSEROF 
«WORD 915 
-WORD SFIERR 


. WORD 
sCLEAR INTERRUPT RECEIVED FLAG 
sMAKE ADDRESS ODD 
3SET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 

TRAP CSERDOF 


-WORD 914 
-WORD T9SSR 


am 


TSvS 


2161 
2182 


A - HARDWARE TESTS MACR 
TEST 9: COMPLETION INTERRUP 


011656' 
104406 
104410 


000056 
005737 
001004 


104456 
001623 
037616' 
011656’ 
016501 
012702 
032701 
001402 
052702 
020201 
001404 


104456 
001624 
037333' 
011656’ 


104403 


104402 


012700 
104441 
012703 
012704 
004737 


104404 


004737 
103405 


002222" 


000002 
102206 
000100 


000100 


015604' 


158: 


228: 


3° 
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CKLOOP 
ESCAPE 


ENDSUB 


Gll 


SUB 


INTRECV 
228 
ERRNO, TONINT ,PKTSSR 


TSSRCRS),R1 
@SC!SSR!TSREJ!NBA,R2 


ERRNO, T94REJ,PKTSSR 


° 
;TEST 9, SUBTEST S 


é 
;CHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE 
sMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 


5$: 


BGNSUB 


ePRIOO 


@1,R3 
@TOPACKET ,R4 
PC, TOREST 


PC, SOF INIT 
10$ 


SEQ 136 

.WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 

. L10071-. 
s0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 

TRAP CSERHRD 

«WORD 915 

-WORD TONINT 


-WORD PKTSSR 
:GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF -LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
:COMMAND NOT REJECTED 
TRAP CSERHRD 
wORD 


P 916 
. WORD TO4REU 
. WORD PKTSSR 
E\NANNNNANNANN END SUBTEST \ANANANAANAAA 
L10071: 
TRAP CsESuUB 


34/7////////7// BEGIN SUBTEST S444 //4/4/4/4/4/4 
19.5: 


TRAP CsBSUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV oPRIOO,RO 

TRAP C$SPRI 


+STARTING BUFFER LENGTH 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


3>>>>>>>>>>>> BEGIN et >>> D> >>> DODD 
RaP CSBSEG 


:D0 SOFT INIT OF CONTROLLER 
sBR IF SOFT INIT = OK 


test 4 9: 


2228 
2229 


TESTS 


mace? M1113 07- 


COMPLETION INTERRUP 


002222" 
037024’ 
000000 


016060’ 


002222’ 


000002 
102206 
000100 


000100 


000014 
036146' 


FEB-84 10:56 


108: 


158: 


22s: 


25%: 


593: 


¢ 


MOV 
ERROF 


Hil 
ERAND, SFIERR, SFIMSG 


INTRECV 


RO,R1 
ERRNO, T9SSR ,PKTSSR 


SEG 


ee 
ERRNO, TONINT ,PKTSSR 


TSSRC(RS),R1 
@SC!SSR! TSREJ!NBA,R2 
@OFL ,R1 


ERRNO, TOSREJ,PKTSSR 


R3 
R3,014 
59% 

5$ 


‘ 
sTEST 9, SUBTEST 6 


SEQ 137 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR —s 


-WORD 917 
-WORD SFIERR 


. WORD 
sCLEAR INTERRUPT RECEIVED FLAG 
s INSERT THE BAD MESSAGE LENGTH 
+SET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSF — 


. WORD 
«WORD T9SSR 
. WORD 
;LOOP ON ERROR, IF FLAG SET 
TRAP CscLPi1 
sBY-PASS SUBTEST IF —o 


10000$ -. 
:DID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


TRAP CSERHRD 


«WORD 919 
-WORD TONINT 
PKTSSR 


;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
31S OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF -LINE 
;SET OFF-LINE IN EXPECTED DATA 
;D0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sCOMMAND NOT REJECTED 
TRAP CSERHRD 
-WORD 920 
. WORD TOSRE J 
.WORD PKTSSR 


g<eeccececeece END SEGMENT <ceceeeeceecc 
10000$: 
TRAP CSESEG 


sNEXT BUFFER LENGTH 

sHAVE ALL BAD VALUES BEEN TESTED ? 
sBRANCH IF ALL TESTED 

s;BRANCH TILL BACK TO ZERO 


ENANNANANNANNSN END SUBTEST \ANANANAANNNA 
L10072: 
TRAP CsESUB 


TSVSA 


HARDWARE TESTS MACRO M1115 07-FEB-84 10:58 
TEST 9: COMPLETION INTERRUPT 


015604° 


002220' 
002222’ 
000000 


016146' 


002220’ 


002222’ 


Til 


SEQ 136 


é 

sTHIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED 

sFEATURES MODE IS ENABLED (AS DETERMINED BY EXAMINING 

sXST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS). 
sIT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED 
+4 aaaten, COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL 
; . 


4$: 


S$: 


10$: 


158: 


BGNSUB 


INC 
CKLOOP 
ESCAPE 


TST 
BNE 
ERRHRD 


EXTFEA 
43 


55% 

PC, TOREST 
oPRIOO 
@TSTBLK+10. ,R35 


@TOPACKET ,R4 
#10. ,PKBCNT(R4) 


PC, SOF INIT 

10$ 

RO,R1 

ERRNO , SF IERR, SF IMSG 
FATFLG 

INTRECV 

R4,TSOBCRS) 


PC,.CHKTSSR 
15% 


RO,R1 
ERRNO, T9SSR ,PKTSSR 


FATFLG 
SEG 


INTRECV 
223 
ERRNO, TONINT ,PKTSSR 


34/////////7/7/ BEGIN SUBTEST //////////7/7/ 
79.6: 


TRAP CsB6SUB 
sIS EXTENDED FEATURES SOFT. SW SET? 
sBR, IF SOFTWARE SWITCH IS SET (ON) 
sEXIT SUBTEST 
sSET PACKET TO START-UP VALUES 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
a @PRIOO,RO 


CsSPRI 
sSTART OF TEST DATA 
sGET THE ADDRESS OF COMMAND PACKET 
sSTART WITH EXTENDED FEATURES VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


s00 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR ota” * is 


CSEROF 
-WORD 921 
.WORD SFIERR 
SF IMSG 
;CLEAR FATAL ERROR FLAG 
;CLEAR INTERRUPT RECEIVED FLAG 
;SET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 
sOEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
.WORD 922 
. WORD T9SSR 
.WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
3BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
. 10000$ -. 
;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
TRAP CSERHRD 


«WORD 923 


HARDWARE T 


Ss 


037616’ 


3002 
000137 


104403 


MACRO M1113 07-FEB-84 10:58 


Est 
: COMPLETION INTERRUPT 


036402’ 


002222' 
000200 
000000 


228: 


2538: 


55$: 


3¢ 


Jil 


—a 


ERRNO, TONBA,PKTSSR 


(R3)+ ,PKBCNT(R4) 
R3, @TBLEND 

SS$ 

S$ 


3 

sTEST 9, SUBTEST 7 
iG 

sTEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED 


10$; 


BGNSUB 


SETPRI 


@PRIOO 


@TOPACKET ,R4 
PC, TOREST 
PC, SOF INIT 
10$ 


RO,R1 
ERRNO, SF IERR, SF IMSG 


INTRECV 
OBIT7,CR4) 
R4, TSOBCRS) 


SEQ 139 
- WORD TONINT 
. WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD0E© EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
. WORD 924 
- WORD TONBA 
.- WORD PKTSSR 
g<eeeceececcece END SEGMENT <ceeeeeeeeeec< 
10000$: 
TRAP CSESEG 


;SET THE TEST WORD 

sHAS ALL DATA BEEN TESTED ? 

sBRANCH IF ALL DATA DONE 

sBRANCH TILL BACK TO ZERO 

s\NNANANANANNN END SUBTEST NANNANAANNNAN 


* TRAP CsesuB 


34/////////// BEGIN SUBTEST 4/4/44 ///4////7/ 
79.7: 


TRAP CsB8SUB 
;LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV @PRIOO,RO 

TRAP C$SPRI 


;GET THE ADDRESS OF COMMAND PACKET 
3SET UP A VALID PACKET 
300 SOFT INIT OF CONTROLLER 


sDEVICE FATAL ERROR DURING INIT 
TRAP 


CSERDF 
-WORD 925 
-WORD SFIERR 

SF IMSG 


. WORD 
sCLEAR INTERRUPT RECEIVED FLAG 
sENABLE INTERRUPTS 
;SET THE PACKET ADDRESS 


HARDWARE TESTS MACR 
: COMPLETION INTERRUP 


004737 016146’ 
103405 
010001 


104455 


2 
005737 002222’ 


005037 002222’ 
042714 000200 


000000 
004737 016146' 


005737 002222’ 
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158; CKLOOP 


228: CKLOOP 


25$: CKLOOP 


30$: 
ENDSUB 


EXIT 


3° 
sLOCAL STORAGE 


K14 


PC, CHKTSSR 
15$ 


RO,R1 
ERRNO, T9SSR ,PKTSSR 


SUB 


INTRECV 
228 
ERRNO, TONINT ,PKTSSR 


INTRECV 
oBIT7,CR4) 
R4, TSDBCRS) 
PC,.CHKTSSR 
ess 


RO,R1 
ERRNO, T9SSR ,,PKTSSR 


SUB 


— 
ERRNO, T9INT,PKTSSR 


TsT 


FOR THIS TEST 


SEQ 140 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
«WORD 926 
-WORD T9SSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
CsCLP1 


TRAP 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 


-WORD 1L10074-. 
;D0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


TRAP CSERHRD 
927 


. WORD 
-WORD  TONINT 
-WORD PKTSSR 


TRAP CsCLP1 


sCLEAR INTERRUPT RECEIVED FLAG 
sDISABLE INTERRUPTS 

sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR aaa ats 


;LOOP ON ERROR ? 


. WORD 
;LOOP ON ERROR, IF FLAG SET 


TRAP CsCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 
-WORD 1L10074-. 
s0ID AN INTERRUPT OCCUR ? 


;BRANCH IF NOT 


TRAP CSERHRD 
-WORD 929 
«WORD T9INT 
-WORD PKTSSR 


s\ANNANANAANNN END SUBTEST \\NANANANAANN 
L10074; 
TRAP CsESUB 
;ALL DONE THIS TEST 


TRAP CSEXIT 
-WORD 1L10065-. 


TSVSA - HARDWARE TESTS MAC 
TEST 9: COMPLETION INTERRUP 


037000 
037010 
037010 
037012 
037014 
037016 


037020 
037020 
037022 
037024 
037026 


037032 


037052 
037052 
037056 
037062 


037066 
037141 
037240 
037333 
037431 
037527 
037616 
037707 
037776 
040061 


100204 
037020' 


000000 
000010 
037032’ 
000000 


000016 
000000 000000 


000000 037140 
000002 000001 


127 122 
127 122 
127 122 
127 122 
127 122 
103 157 
105 170 
125 156 
111 156 
103 157 
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Lil 


SEQ@ 141 


.BLKB = 10-«. - TSV2E7> 
TOPACKET: ;COMMAND PACKET FOR TEST 
“WORD 100204 ;WRITE CHAR COMMAND, WITH IE, ACK 
“WORD TODATA tADDRESS OF CHARACTERISTICS BLOCK 
“WORD 8 :STARTING VALUE OF BLOCK SIZE 
TODATA: ;CHARACTERISTICS DATA BLOCK 
- WORD T9BFR ;ADDRESS OF MESSAGE BUFFER 
;WORD 14, ;LENGTH OF MESSAGE BUFFER 
‘wORD 0,0 
TOBFR: .BLKW 8 ;MESSAGE BUFFER 


3¢ 
i 

:TEST DATA FOR SUBTEST TWO 
3 

sDATA HAS FORMAT: 

; 


1ST WORD 
2ND WORD 


; OFFSET TO TEST WORD IN PACKET 

; BITS TO SET FOR TEST 

; 

ge 

T92DATA: 
. WORD 
. WORD 
. WORD 

T92D0NE =. 


O.BITS!BIT6!BITS!BITLO!BIT1I1L:BIT12!:BIT13 
2,B1TO 
4,BIT6!:6IT15 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 
g- 


TONBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 
T92QREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields’ 
TOSREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Data Count’ 
TO94REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re ted With Invalid Block Address’ 
TOSREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re ted With Invalid Buffer Length’ 
T9SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
TONINT: .ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
T9INT: .ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 
T9TSBA: .ASCIZ ‘Incorrect TSBA Address After WRITE CHARACTERISTICS’ 
TST9ID: a ‘Completion Interrupt’ 

-EV 


3? 


° 

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
; 

$- 


Tey;" 5 RRO Ae TESTS ha ace? M1113 07-FEB-84 10:58 


012701 
012721 
012721 
005021 


012700 
004737 
012737 


104402 
004737 
012700 
104441 
012704 
012764 
104404 


004737 
103405 


037010’ 
100204 
037020' 


000010 
037032’ 


000016 


037032’ 


043117' 
016322" 
000024 


043146' 
000000 


042310’ 
000010 


015604' 


002214’ 


TOREST: 
S MOV. 


Mil 


OTOPACKET ,R1 
#100204 ,(R1)+ 
@TODATA,(R1)>+ 


SEQ 142 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
;RETURN 


L10065: 


TRAP CSsETST 


-SBTTL TEST 10: BASIC PACKET PROTOCOL 


THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNC 


TION OF THE ACK BIT IN THE COMMAND HEADER WORD, 


+ 
sTEST 10 SUBTEST 1 


AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 


; 

sCHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
sPROPERLY AND THAT NO INTERRUPT IS GENERATED EVEN 

IF THE “IE” BIT IS SET IN THE COMMAND PACKET 


; 
BGNTST 


T1LOLOOP: 


JSR 
SETPRI 


MOV 
MOV 


BGNSEG 


5$: 


JSR 
bcs 


@TST10I0,RO 
PC, TSTSETUP 
#20. ,LOOPCNT 


PC, T1ORST 
#PRIOO 


@TLOPACKET ,R4 
#8. ,PKBCNTCR4) 


PC, SOF INIT 
10$ 


T10:: 
sASCII MESSAGE TO IDENTIFY TEST 
3:00 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 


34/////////// BEGIN SUBTEST //////////7/7/ 
T10.1: 
TRAP CsBSUB 


sSET PACKET TO INITIAL VALUES 
;LOWER PRIORITY TO ALLOW INTERRUPTS 
MOV #PRIOO,RO 
TRAP C$SPRI 
;GET THE ADDRESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 


:00 SOFT INIT OF CONTROLLER 
;BR IF SOFT INIT = OK 


TSVSA 
Test 


2521 
2522 


- HARDWARE TESTS 
10: BASIC 


MACRO M1113 07-FEB-84 10:58 
PACKET PROTOCOL 


002220' 
002222" 
090000 


016146' 


002220' 


002222’ 


000002 
000200 
000100 


000100 


002222" 
025252 042332' 
100212 


000000 
016146' 


10$: 


15$: 


228: 


25%: 


30$: 


MOV 
ERROF 


Nii 


RO,R1 
ERRNO, SFIERR , SFIMSG 


FATFLG 
INTRECV 


RO,R1 
ERRNO, TLOSSR,PKTSSR 


FATFLG 
SEG 


INTRECV 
223 
ERRNO, TLONINT ,PKTSSR 


TSSRCRS),R1 
@SSR ,R2 
+ ee 


2s 

oOFL ,R2 
R2,R1 
30 


$ 
ERRNO, TLONBA,PKTSSR 


INTRECV 
#025252, TLOBFR 
#100212,(R4) 
R4, TSDOBCRS) 
PC,CHKTSSR 

45$ 


RO,R1 
ERRNO, TLOSSR,FPKTSSR 


SEQ 143 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 1001 
«WORD SFIERR 
«WORD SFIMSG 


sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET — 

sWAIT FOR SSR TO SE 
;BR IF CARRY SET €G00D RETURN) <. 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR a 


CSEROF 
. WORD 1002 
.- WORD T10SSR 
PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
;BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
. 10000$-. 
;DID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
TRAP CSERHRD 
WORD 1003 
~ WORD TLONINT 
F PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
;IS OFF-LINE BIT SET ? 
;BRANCH IF NOT OFF-LINE 
:;SET OFF-LINE IN EXPECTED DATA 
;D0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
;NBA NOT ZERO 
TRAP CSERHRD 
«WORD 1004 
.WORD TLONBA 
.WORD PKTSSR 
g<eeeeecececeee END SEGMENT <ceeeceeeeece 
10000$: 
TRAP CSESEG 


3>>>>>>>>>>>> BEGIN eee >>> >>> >>>>>> 
RAP CSBSEG 


;CLEAR INTERRUPT RECEIVED FLAG 
sWIPE OUT MESSAGE BUFFER AREA 

3SET COMMAND PACKET TO MESS BUF REL 
iSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 


Ble 


TSVSA HARDWARE Ma Toro. M1113 07-FEB-84 10:58 SEQ 144 
Tes! 10: BASIC PACKET PRO 

040430 104455 TRAP CSERDF 
040432 001755 WORD 1005 
040434 042650 » WORD T10SSR 
040436 011656’ . WORD PKTSSR 

2568 040440 005237 002220’ FATFLG sSET FATAL ERROR FLAG 

2569 040444 45%: CKLOOP sLOOP ON ERROR, IF FLAG ae 
040444 104406 CsCLPl1 

2570 040446 005737 002222’ Ts? INTRECV s0ID AN INTERRUPT OCCUR r 

2571 040452 001404 BEQ 528 sBRANCH IF NO 

2575 040454 E ERRNO, TLOINT ,PKTSSR 
040454 104456 TRAP CSERHMRD 
040456 001756 WORD 1006 
040460 043030 WORD TLOINT 
040462 011656’ . WORD PKTSSR 

2576 040464 016501 000002 S28: MOV TSSR(RS),R1L 3GET THE CONTENTS OF TSSR 

2577 040470 012702 000200 MOV @SSR ,R2 sEXPECTED CONTENTS OF TSSR 

2578 040474 032701 000100 BIT OOFL ,R1 sIS OFF-LINE BIT SET ? 

2579 040500 001402 BEQ 553 sBRANCH IF NOT OFF -LINE 

2580 040502 052702 000100 BIS OOFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

2581 040506 020201 558: CMP R2,R1 s;D0ES EXPECTED MATCH RECEIVED ? 

2582 040510 001404 BEQ 603 ;OKAY IF MATCH 

2586 0405i2 ERRHRD ERRNO, TLONNBA,PKTSSR sNBA SET 
040512 104456 TRAP CSERMRD 
040514 001757 «WORD 1007 
040516 042573' . WORD TLONNBA 
040520 011656 PKTSSR 

2587 040522 608: 

2588 040522 013701 042332’ MOV TLOBFR,R1 :PICK UP THE 1ST WORD OF MESSAGE BUFFER 

2589 040526 012702 025252 MOV 025252 ,R2 :SET UP EXPECTED DATA 

2590 040532 020102 CMP R1,R sWAS ANY MESSAGE REC'D 

2591 040534 001404 BEQ 708 ;8R, IF OK (EQUAL) 

2595 040536 E ERRNO, TLOMBF ,EXPREC sMESSAGE BUFFER WAS MODIFIED 
040536 104456 TRAP CSERHRD 
040540 001760 . WORD 1008 
040542 042414’ . WORD TLOMBF 
040544 015304’ . WORD EXPREC 

2596 040546 708: 

2597 040546 005737 002220' TST FATFLG sANY FATAL ERRORS 

2598 040552 001403 BEQ 80$ 3BR, IF NO FATAL ERRORS 

2599 040554 004737 017014' JSR PC ,CKDROP 3TR: TO DROP THE UNIT 

2600 040560 ENDSEG gcecececececccece: END SEGMENT <ccecceceecec 
040560 100018: 
040560 104405 TRAP CSESEG 

2601 040562 80%: 

2602 040562 ENDSUB s4//71/1//1/74 END SUBTEST 4447/7 /444/7/ 
040562 L10076: 
040562 104403 TRAP CsESUB 

2603 

2604 se 

2605 sTEST 10 SUBTEST 2 

2606 3 

2607 sCHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 

2608 sPROPERLY AND THAT THERE IS AN INTERRUPT IF THE “IE” 

2609 sB8IT IS SET IN THE COMMAND PACKET AND THE "ERI” BIT 

He 31S SET IN THE CHARACTERISTICS DATA PACKET 

3 


TSVSA - E 7-F . : 
TEST 10, BROTe PAERE? PROTBEOL tts 07 FEB 84 10:58 SEQ 145 

2615 op BGNSUB WAAAAAAAALL econ gates? AAA 
040564 104402 TRAP Cs6SuUB 

2014 

2615 040566 004737 043146' JSR PC, TLORST +SET PACKET TO INITIAL VALUES 

2616 040572 SETPRI O@PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
040572 012700 000000 MOV @PRIOO,RO 
040576 104441 TRAP Cs$SPRI 

2617 040600 012704 042310’ MOV @TLOPACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 

te pooety 012764 000010 000006 Se MOV 08. ,PKBCNT(R4) sSTART WITH MINIMUM ALLOWABLE VALUE 

2620 040612 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

2621 040612 104404 TRAP CsBSEG 

2622 040614 004737 015604' JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 

2623 040620 103405 BCS 108 36R IF SOFT INIT = OK 

2627 040622 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2628 040624 ERRDF ERRNO, SF IERR, SF IMSG sDEVICE FATAL ERROR DURING INIT 
040624 104455 TRAP CSEROF 
040626 001761 . WORD 1009 
040630 003644’ - WORD SFIERR 
040632 011644' . WORD SF IMSG 

2629 040634 005037 002220' 108; CLR FATFLG sCLEAR FATAL ERROR FLAG 

2630 040640 005037 002222' CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 

2631 040644 012737 000020 042326’ MOV #000020, TLODATA+6 3SET ERI IN CHARACTERISTICS DATA 

2632 040652 010465 000000 MOV R4,TSOBCRS) sSET THE PACKET ADORESS 

2633 040656 004737 016146' JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

2634 040662 103407 BCS 15$ 368R IF CARRY SET (GOOD RETURN) 

2635 040664 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2639 040666 ERROF ERRNO, T1OSSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
040666 104455 TRAP CSEROF 
040670 001762 . WORD 1010 
040672 042650’ WORD T1LOSSR 
040674 011656' . WORD PKTSSR 

2640 040676 005237 002220’ INC FATFLG 3SET FATAL ERROR FLAG 

2641 040702 158: CKLOOP sLOOP ON ERROR, IF FLAG SET 
040702 104406 TRAP CsCLPl 

2642 040704 ESCAPE SEG 3BY-PASS SUBTEST IF FATAL ERROR 
040704 104410 TRAP CSESCAPE 
040706 000056 . WORD 10000$-. 

2643 040710 005737 002222’ TST INTRECV :0ID AN INTERRUPT OCCUR ? 

2644 040714 001004 BNE 228 sBRANCH IF YES 

2648 040716 ERRHRD ERRNO, TLONINT PKTSSR 
040716 104456 TRAP CSERHRD 
040720 001763 WORD 1011 
040722 042737' «WORD TLONINT 
040724 011656’ . WORD PKTSSR 

2649 040726 016501 000002 22s: MOV TSSR(RS),R1 :GET THE CONTENTS OF TSSR 

2650 040732 012702 000200 MOV @SSR,R2 sEXPECTED CONTENTS OF TSSR 

2651 040736 032701 000100 BIT OOFL ,R1 31S OFF-LINE BIT SET ? 

2652 040742 001402 BEQ 2538 sBRANCH IF NOT OFF-LINE 

2653 040744 052702 000100 BIS OOFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

2654 040750 020201 253: CMP R2,R1 s;00ES EXPECTED MATCH RECEIVED ? 

2655 040752 001404 BEQ 30% ;OKAY IF MATCH 

2659 040754 ERRHRD ERRNO, TLONBA,PKTSSR sNBA NOT ZERO 
040754 104456 TRAP CSERHWRD 


040756 001764 . WORD LOle 


TEST” jos BRETE PAERE? PROTBLOL!**S 


042511' 
011656’ 


104405 
104404 


005037 
012737 
012714 


013701 
012702 
020102 
001404 


104456 
001770 
042414' 
015304' 


005737 
001402 


308: 


042332’ 


000000 
016146’ 


002220' 
45$: 


002222' 


52s: 


558: 


60$: 
042332’ 
025252 


708: 
002220' 


07-FEB-84 10:58 


TST 
BEQ 


D12 


INTRECV 
#025252, TLOBFR 
#100212,(R4) 
R4, TSOBCRS) 
PC, CHKTSSR 

45% 


RO,R1 
ERRNO, TLOSSR,PKTSSR 


FATFLG 


INTRECV 
Ses 
ERRNO, TLOINT,PKTSSR 


TSSRC(RS),R1 
@SSR,R2 


60% 
ERRNO, TLONNBA,PKTSSR 


TLOBFR,R1L 

2025252 ,R2 

R1,R2 

70$ 

ERRNO, TLOMBF ,EXPREC 


FATFLG 
80% 


SEQ 146 
-WORD T1ONBA 
«WORD PKTSSR 


peeeeececceccce END SEGMENT <ccceeeeeccce 
100008: 


TRAP CSESEG 
3>>>>>>>>>>>> BEGIN SEGMENT >> >>>>>>>>>> 
TRAP CS$BSEG 


sCLEAR INTERRUPT RECEIVED FLAG 
sWIPE OUT MESSAGE BUFFER AREA 

sSET COMMAND PACKET TO MESS BUF REL 
sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR vices 


CSEROF 
. WORD 1013 
«WORD T10SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPl 
s01I0 AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
«WORD 1014 
«WORD TIOINT 


-WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
:IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 


sNBA NOT SET 
TRAP CSERHRD 
«WORD 1015 
-WORD TIONNBA 
-WORD PKTSSR 


sPICK UP THE 1ST WORD OF MESSAGE BUFFER 
3SET UP EXPECTED DATA 

sWAS ANY MESSAGE REC'D 

sBR, IF OK CEQUAL ) 

sMESSAGE BUFFER WAS MODIFIED 


TRAP CSERHRD 
. WORD 1016 

. WORD TLOMBF 
-WORD EXPREC 


sANY FATAL ERRORS 
:BR, IF NO FATAL ERRORS 


TSVSA - HARDWARE TESTS 


TEST 


041146 


10: BASIC PACKET 


004737 


104405 


104403 


MACRO M1115 07-FEB-84 10:58 
PROTOCOL 


017014' 


043146' 
000000 


042310' 
000010 


015604' 


002220' 
002222’ 
000000 


016146' 


002220’ 


002222' 


808: 


JSR 
ENOSEG 


ENOSUB 


Ele 


PC ,CKDROP 


3¢ 
sTEST 10 SUBTEST 3 


5 
sCHECKS THAT THE CPU GIVES ur UWNERSHIP OF THE MESSAGE BUFFER 
sAFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS 


sWORK CORRECTLY 


53%: 


10$: 


15$: 


BGNSUF 


JSR 
SETPRI 


ESCAPE 


TST 


PC, TLORST 
oPRIOO 
@TLOPACKE! ,x4 
08. ,PKBCNT(R4 ) 
PC, SOF INIT 

10$ 

RO,R1 
ERRNO, SF IERR, SF IMSG 
FATFLG 

INTRECV 
R4,TSOBCRS) 


PC,CHKTSSR 
15$ 


RO,R1 
ERRNO, TLOSSR,PKTSSR 


FATFLG 
SEG 


INTRECV 


SEQ 147 


sTRY TO DROP THE UNIT 


g<eeececccceecee END SEGMENT <cceeeeececce 
10001$: 
TRAP CSESEG 
s4////1//7/7774 END SUBTEST S////S/////77/ 
7: 


L10077: 
TRAP CSsESUB 


3//////////// BEGIN we SASS ASA ISSA 
710.3: 
TRAP Cs6SU8 


sSET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV oPRIOO,RO 
TRAP CsSPRI 
sGET THE ADDRESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>>> 


TRAP CSBSEG 
:00 SOFT INIT OF CONTROLLER 
;BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 
«WORD 1017 
-WORD SFIERR 
«WORD SFIMSG 
sCLEAR FATAL ERROR FLAG 
sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 1018 
-WORD T10SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP Csc.P 1 
3BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 


-WORD 10000$.-. 
s0ID AN INTERRUPT OCCUR ? 


File 


TSVSA - HARDWARE TESTS MACRO M1113 07-FEB-84 10:58 


TEST 


2750 
2754 


10: BASIC 


PACKET PROTOCOL 


001004 


104456 
001773 
042737' 


043146' 
002222’ 
025252 
100212 


000000 
016146' 


002220' 


002222" 


000002 
000200 
000100 


000100 


042332' 


22s: 


25$: 


30$: 


45$: 


S2s: 


558: 


BNE 22% 
ERRHRD ERRNO, TIONINT,PKTSSR 
MOV TSSRCRS),R1 
MOV @SSR ,R2 
BIT OOFL ,R1 
BEQ 25$ 
BIS OOFL ,R2 
CMP R2,R1 
BEQ 30$ 
ERRHRD ERRNO, T1ONBA,PKTSSR 
ENOSEG 
BGNSEG 
JSR PC, TLORST 
CLR INTRECV 
MOV 0025252, TLOBFR 
MOV #100212,(R4) 
MOV R4, TSDBCRS) 
JSR PC, CHKTSSR 
BCS 453% 
MOV RO,R1 
ERROF ERRNO,T1LOSSR,PKTSSR 
INC FATFLG 
CKLOOP 
TST INTRECV 
BEQ Ses 
ERRHRD ERRNO, TLOINT,PKTSSR 
MOV TSSRC(RS),R1 
MOV @SSR,R2 
BIT @OFL ,R1 
BEQ 55% 
BIS @OFL ,R2 
CMP R2,R1 
EQ Os 


8 6 
ERRHRD ERRNO, TLONNBA,PKTSSR 


SEQ 148 
sBRANCH IF YES 
TRAP CSERHRD 
. WORD 1019 
. WORD TIONINT 
. WORD PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
;D0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
. WORD 1020 
. WORD TLONBA 
. WORD PKTSSR 
p< eceeeececccee END SEGMENT <ceeceeeeeece 
10000$: 
TRAP CSESEG 
3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


sRESET PACKETS AND COMMANDS 
sCLEAR INTERRUPT RECEIVED FLAG 
sWIPE OUT MESSAGE BUFFER AREA 
sSET COMMAND PACKET TO MESS BUF REL 
sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR we 


CSEROF 
«WORD 1021 
-WORD T10SSR 


-WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 


TRAP CscLP1 

;DID AN INTERRUPT OCCUR ? 

sBRANCH IF NO 
TRAP CSERHRD 
«WORD 1022 
-WORD  TLOINT 
-WORD PKTSSR 

:GET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF -LINE 

sSET OFF-LINE IN EXPECTED DATA 

;D0ES EXPECTED MATCH RECEIVED ? 

;OKAY IF MATCH 

sNBA NOT SET 
TRAP CSERHRD 
. WORD 1023 


TSVSA 


TEST 


- HARDWARE 


10: BASIC 


TEST 
PACKE 


042573° 
011656’ 


013701 
012702 


MACRO M1113 07-FEB.84 H 
enotarons! 10:58 


60$: 


042332" 
025252 


708; 


002222’ 
043146' 
100000 


000000 
016146' 


002220' 


75$: 


000100 
000100 


85%: 


82%: 


ENDSEG 


Gle 


TLOBFR,R1 

#025252 ,R2 

R1,R2 

70% 

ERRNO, TLOMBF ,EXPREC 


INTRECV 

PC, TLIORST 
#100000 , (R4) 
R4, TSOBCRS) 
PC ,.CHKTSSR 
75$ 


RO,R1 
ERRNO, TLOSSR,PKTSSR 


FATFLG 

SEG 

INTRECV 

82% 

TSSRCRS),RO 

ERRNO, TLONINT ,PKTSSR 


TSSRCRS),R1 
@SSR,R2 


90% : 
ERRNO, T1OSSR,PKTSSR 


- WORD 
. WORD 


SEQ 149 


T1LONNBA 
PKTSSR 


sPICK UP THE 1ST WORD OF MESSAGE BUFFER 


sSET UP EXPECTED DATA 

sWAS ANY MESSAGE REC'D 

sBR, IF OK CEQUAL) 

sMESSAGE BUFFER WAS rs 


sLOOP ON ERROR IF FLAG SET 
TRAP 


sCLEAR INTERRUPT RECEIVED FLAG 

sRESET THE PACKETS AND COMMANDS 
sCLEAR THE ACK BIT 

sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

36R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR ae 


- WORD 


WORD 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP 
3BY-PASS SUBTEST IF FATAL ERROR 
TRAP 


;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
;GET TSSR FOR ERROR REPORT 


;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 

sNBA NOT ZERO 


CSERHRD 
1024 
TLOMBF 
EXPREC 


CSsCLP1 


CsCLP1 


CSESCAPE 
10001$-. 


CSERHRD 
1027 
T1OSSR 
PKTSSR 


p< «eee Cece” END SEGMENT <<eeecececccc 


10001$; 


TSVSA - 
Test 1 


HARDWARE 
0: BASIC 


041664 
041666 


TEST 
PACKE 


104405 

005737 002220' 
001403 
004737 017014’ 


002222’ 
043146’ 
000000 


016146' 


002220' 


002220' 
017014’ 


100$: 


112$: 


1°58: 


1308: 


140%; 


308: 


3° 


MACRO M1113 07-FEB-84 10:58 
PROTOCOL 


TsTt 


Hie 


FATFLG 
95% 
PC ,CKDROP 


INTRECV 

PC, TLORST 
R4, TSOBCRS) 
PC ,.CHKTSSR 
100$ 


RO,R1 
ERRNO, TLOSSR,PKTSSR 


FATFLG 
SEG 


INTRECV 

1le$ 

TSSRCRS),RO 

ERRNO, TLONINT ,PKTSSR 


TSSRCRS),R1 
@SSR,R2 


$ 
ERRNO, TLOSSR,PKTSSR 


FATFLG 
140% 
PC ,.CKDROP 


SEQ 150 


TRAP CSESEG 
sANY FATAL EPRORS 
sBR, IF NO FATAL ERRORS 
sTRY TO OROP THE UNIT 


geeeeececcecceceece BGN SEGMENT <eeeececeeece 
TRAP C$BSEG 

s;CLEAR INTERRUPT RECEIVED FLAG 

sRESET THE PACKETS AND COMMANDS 

sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

3B8R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR desea * sie 


CSEROF 
-WORD 1028 
«WORD T10SSR 
«WORD PKTSSR 


sSET FATAL ERROR FLAG 

sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 

sBY-PASS SUBTEST IF steno Yam 


CSESCAPE 
‘ 10002$-. 
;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
;GET TSSR FOR ERROR REPORT 
TRAP CSERHRD 
. WORD 1029 
. WORD TLONINT 
PKTSSR 


;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF -LINE 

sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXP CTED MATCH RECEIVED ? 
3;OKAY IF MATCH 

sNBA NOT ZERO 


TRAP CSERHRD 
«WORD 1030 
«WORD T10SSR 
-WORD PKTSSR 
geeeeecececece END SEGMENT <ceeeeeeceece 
10002$: 
TRAP CSESEG 


sCHECK FATAL FLAG FOR SET 
s8R, IF NOT SET (OK) 
sOROP DEVICE IF INDICATED 


34//////////4 END SUBTEST “4/44/7444 ///77/ 


L10100: 
TRAP Csesus 


TSVSA 
TEST 


- HARDWARE TE 
10: BASIC PACKET 


STS 


104402 


004737 
004737 


012700 
104441 
012704 
012703 
012764 
012763 


MACRO M1113 07-FEB-84 10:58 
PROTOCOL 


002220’ 


002222’ 


Ile 


sTEST 10 SUBTEST 4 


; 

sCHECKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN 
;THE TSSR WILL BE SET.IF A WRITE CHARACTERISTICS COMMAND 
sBEING EXECUTED AND ANOTHER “WC” COMMAND IS ATTEMPTED 


5$: 


10$: 


15$: 


BGNSUB 


JSR 
JSR 
SETPRI 


INC 
CKLOOP 
ESCAPE 


TsT 
BNE 


ERRHRD 


PC, TLORT2 
PC, TLIORST 
@PRIOO 


@TLOPACKET ,R4 
@TLOPKT ,R3 

#8. ,PKBCNT(R4) 
08. ,PKBCNTC(R3) 


PC, SOF INIT 
10% 


RO,R1 
ERRNO, SFIERR , SF IMSG 
FATFLG 


TSSR(RS),R1 
@SSR,R1 


15$ 
ERRNO, TLOSSR,PKTSSR 


FATFLG 
SEG 


INTRECV 
22s 


ERRNO, TLONINT ,PKTSSR 


SEQ 151 


AAA me SUBTEST ///////////7/ 
* 10.4: 
TRAP CsBSuUB 


sSET SECOND PACKET UP 
3SET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP Cs$SPRI 
s;GET THE ADDRESS OF COMMAND PACKET 
sGET THE ADDRESS OF 2ND CMD PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 

300 SOFT INIT OF CONTROLLER 

;8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR wom te 


CSEROF 

«WORD 1031 
-WORD SFIERR 
«WORD SFIMSG 

;CLEAR FATAL ERROR FLAG 

;CLEAR INTERRUPT RECEIVED FLAG 

;SET THE PACKET ADORESS 

sSECOND COMMAND PACKET 

sWAIT FOR SSR TO SET 

sGET CONTENTS OF TSSR REGISTER 

sCHECK FOR SSR (TSSR) SET 

3BR, IF SSR SET (GOOD) 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 1032 
-WORD T10SSR 
-WORD PKTSSR 


3;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLPL 
3BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
7 10000$-. 
;D0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


TRAP CSERHRD 


TSVSA - HARDWARE TESTS 


TEST 10: BASIC PACKET PRUivL- 


000002 
110200 
000100 


052702 000100 


100204 
042320' 
000000 


000010 
042332: 


000000 
000016 
000000 000000 


100204 
042362' 
000000 


000010 


042374' 


“aCRO M1113 07-FEB-84 10:58 


228: MOV 


25%: 


30$: 
ENDSUB 


EXIT 


3¢ 
sLOCAL STORAGE 
3 = 


-BLK 
TLOPACKET: 
TLODATA: 


T1OBFR: .BLKW 


3¢ 


J1le2 


TSSRC(RS),R1 
@SSR!IRMR!ISC ,R2 
#OFL ,R1 


»R1 
$ 
ERRNO, TLOSSR ,PKTSSR 


TST 


FOR THIS TEST 


10-<,-TSV2E7> 


100204 
TLODATA 


3 
sTEST DATA FOR SUBTEST FOUR 


3 
T1LOPKT: 
. WORD 
. WORD 
. WORD 
WORD 
T1ODTA: 
«WORD 


100204 
aati 


TLOBUFR 


SEQ 152 
-WORD 1033 
«WORD TIONINT 
-WORD PKTSSR 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
s;OKAY IF MATCH 


sNBA NOT ZERO 
TRAP CSERHRD 
«WORD 1034 
«WORD T10SSR 
«WORD PKTSSR 


g<eeecececececeece: END SEGMENT <ceeeeeeeeecec 
10000$: 
TRAP CSESEG 
3////////1/47 END SUBTEST S///S/A//////7/ 
L10101: 
TRAP CsESuUB 
sALL DONE WITH THIS TEST 
TRAP CSEXxIT 
- WORD L10075-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHAR COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


;COMMAND PACKET FOR TEST 
sWRITE CHAR COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 


s;CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


TSVSA - 
TEST 


000000 
000016 
000000 


012701 


012701 
012721 


000000 


042332’ 


042352’ 


io: BASIC PACKET PROTOCOL > 07 FEB-84 10:58 


. WORD 
. WORD 
. WORD 


TLOBUFR: .BLKW 


Ki1e2 


;¢ 
sLOCAL TEXT MESSAGES FOR TEST 


:- 
-ASCIZ 
: .ASCIZ 
-ASCIZ 


: ,ASCIZ 
TST10ID: 
.EVEN 


3¢ 


SEQ 153 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


‘Message Buffer Modified after MESSAGE BUFFER RELEASE Command’ 
‘NBA Not Clear After WRITE CHARACTERISTICS Command’ 


-ASCIZ 


‘NBA Set After MESSAGE BUFFER RELEASE Command’ 


‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 


-ASCIZ 


‘Expected Interrupt Not Received On 


WRITE CHARACTERISTICS’ 


‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 


-ASCIZ 


‘Basic Packet Protocol’ 


Q 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
; 


ge 
TLORST: 


3¢ 


@TLOPACKET ,R1 
#100204 ,(R1)+ 
@T1ODATA,CR1)+ 
CR1)+ 
#8.,CR1)+ 
@TLOBFR,CR1)+ 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF ane DATA BLOCK 


OF DATA BLOCK IN BYTES 
; ADDRESS OF MESSAGE BUFFER 


s;LENGTH OF MESSAGE BUFFER 


;CLEAR 1ST LOC IN MESSAGE BUFFER 
;RETURN 


° 
sROUTINE TO RESTORE COMMAND PACKET #2 TO START-UP (DEFAULT) VALUES 


TLORT2: 


@TLOPKT ,R1 
#100204 ,(R1)-+ 
@TLODTA,C(R1)-+ 
C(R1)+ 

08. ,(R1)+ 
@TLOBUFR,CR1)+ 
(R1)+ 


;SAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sAPDRESS OF MESSAGE BUFFER 


Lie 
TSVSA - TESTS MACRO M 7-FEB- : 
TEST 107 BASIC PACKET PROTOCOL > ©” FEB-84 10:58 cagitigae 


3046 043254 012721 000016 MOV 14. ,(R1)+ sLENGTH OF MESSAGE BUFFER 

3047 043260 005021 CLR CR1)+ 

3048 043262 005011 CLR CR1) 

3049 043264 005037 042374' CLR TLOBUFR sCLEAR 1ST LOC IN MESSAGE BUFFER 

3050 043270 000207 RTS PC sRETURN 

3051 043272 ENDTST 
043272 L10075: 

sos2 043272 104401 TRAP CseTstT 

oone -SBTTL TEST 11: NON-TAPE MOTION COMMANDS 

3055 3¢ 

3056 ; 

3057 ;THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 

3058 ;COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 

3059 THE COMMAND RUNS TO COMPLETION AND STORES A VALID 

3060 sMESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 

ees ;VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 

a 

3063 i: 

3064 

3065 043274 BGNTST 
043274 Tll:: 

3070 043274 012700 045302’ MOV #TST11ID,RO sASCII MESSAGE TO IDENTIFY TEST 

3071 043300 004737 016322’ JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 

3072 043304 012737 000024 002214' MOV #20. ,LOOPCNT sPERFORM 20 ITERATIONS 

3073 043312 T11LOOP: 

3074 043312 BGNSUB 3//////////// BEGIN SUBTEST ///////////7/ 
043312 Til.1: 

s07s 043312 104402 TRAP CsBSuB 

3076 043314 SETPRI #PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
043314 012700 000000 MOV @PRIOO,RO 
043320 104441 TRAP CsSPRI 

3077 043322 004737 015604’ JSR PC,SOF INIT :00 SOFT INIT OF CONTROLLER 

3078 043326 103405 BCS 3$ ;BR IF SOFT INIT = OK 

3082 043330 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

3083 043332 ERROF ERRNO, SFIERR, SF IMSG sDEVICE FATAL ERROR DURING INIT 
043332 104455 TRAP CSERDOF 
043334 002115 . WORD 1101 
043336 003644’ . WORD SFIERR 
043340 011644' . WORD SF IMSG 

3084 043342 3$: 

3085 043342 012704 044530’ MOV @T1LIPK2,R4 sWRITE CHARACTERISTICS PACKET 

3086 043346 004737 010472’ JSR Ce WRTCHR s; ISSUE WRITE CHARACTERISTICS 

3087 043352 103404 BCS ;8R, IF COMMAND ISSUED OK 

3091 043354 ERRHRD ERRNO, WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
043354 104456 TRAP CSERHRD 
043356 002116 .- WORD 1102 
043360 005050’ .WORD WRTMSG 
043362 011644’ «WORD SF IMSG 

3092 043364 4$: 

3093 043364 004737 045334' JSR PC, T11REST ;SET UP PACKET FOR COMMAND 

3094 043370 012704 044460’ MOV #T1LIPACKET,R4 . ;GET THE ADDRESS OF COMMAND PACKET 

3095 043374 5$: . 

3096 043374 BGNSEG 3 >>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 


043374 104404 TRAP C$BSEG 
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015320° 


104405 


104403 


005737 
001402 
004737 


002220' 
002222' 


000000 
016146' 


002220' 


002222’ 


000002 
000200 
000100 


000100 


010724' 


002220' 
017014' 


10$: 


15$: 


223: 


258: 


30$: 
35$: 


59%: 


ENOSEG 


ENOSUB 


TST 
BEQ 
JSR 


Mie 
FATFLG 


RO,R1 
ERRNO, T11SSR,PKTSSR 


FATFLG 
SEG 


INTRECV 
22s 
ERRNO, TLININT ,PKTSSR 


TSSRCRS),R1 
@SSR ,R2 


R2,R1 
30$ 
ERRNO, TL1NBA,PKTSSR 


PC,CKRAM 
59$ 
ERRNO ,PKTRAM,RAMERR 


FATFLG 
60$ 
PC,CKDROP 


SEQ 155 
sCLEAR FATAL ERROR FLAG 
sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 1103 
-WORD 111SSR 
PKTSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
° 10000$ -. 
;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
TRAP CSERHRD 
«WORD 1104 
«WORD TLININT 


.WORD PKTSSR 
:GET THE CONTENTS OF TSSR 
;EXPECTED CONTENTS OF TSSR 
3IS OFF-LINE BIT SET ? 
;BRANCH IF NOT OFF-LINE 
3SET OFF-LINE IN EXPECTED DATA 
;D0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 


sNBA NOT ZERO 
TRAP CsSERHRD 
WORD 105 
.WORD T1LINBA 
. WORD PKTSSR 
;CHECK RAM TO MEMORY 
;RAM OK GO ON 
; THEY DON'T MATCH 
TRAP CSERWRD 
WORD 1106 
.WORD PKTRAM 
. WORD RAMERR 
g<eeceeceecece END SEGMENT <ceeeeeeeceecc 
10000$: 
TRAP CSESEG 


s\N\NNNNNAANNNN END SUBTEST \ANANAANAANAS 
TRAP CsESUB 
sANY FATAL ERRORS ? 


sBRANCH IF NOT 
;TRY TO DROP THE UNIT 


3189 
3190 


Nie 
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043554 


015604' 


044530’ 
010472" 


045334’ 
044460' 


002222' 
007400 


000000 
016146' 


60%: 

3* 

: 

;TEST 11, SUBTEST 2 


SEQ 156 


i 
sCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 


s INITIALIZE COMMAND TO BE REJECTED 
3 
3° 


BGNSUB 


SETPRI #PRIOO 


BGNSEG 


JSR 4% SOF INIT 


6cs 

MOV RO, R1 

ERROF ERRNO, SF IERR, SF IMSG 
3$: 

MOV @T11PK2,R4 

JSR PC,WRTCHR 

bcs 4$ 

ERRHRD ERRNO,WRTMSG, SF IMSG 
4$; 

JSR PC, TLIREST 
Se, MOV STLLPACKET,R4 
10$: CLR INTRECV 

BIS oP .MODE , (R4) 

MOV R4,TSOBCRS) 

JSR PC,CHKTSSR 

BcsS 15$ 

MOV RO,R1 

ERROF ERRNO, 1T11SSR,PKTSSR 
15$: CKLOOP 

ESCAPE SEG 


347/////////7 BEGIN SUBTEST S//////////7/ 


Til.2 
TRAP CsBSUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP CsSPRI 


3 >>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>>> 
TRAP CSBSEG 


300 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR eg i 


CSEROF 

«WORD 1107 
«WORD SF IERR 
-WORD SF IMSG 

sWRITE CHARACTERISTICS PACKET 

;ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 

sWRITE CHARACTERISTISC FAILED 
TRAP CSL RHRD 
-WORD 1108 
-WORD WRTMSG 
-WORD SF IMSG 


;SET UP PACKET FOR COMMAND 
;GET THE ADDRESS OF COMMAND PACKET 


sCLEAR INTERRUPT RECEIVED FLAG 
sNON-ZERO COMMAND MODE BITS 
;SET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR renee i. 5 SET 


CSERDF 
TWORO 1109 
«WORD T11SSR 

PKTSSR 


. WORD 
;LOOP ON ERROR, IF FLAG SET 

TRAP CsCLPL 
3BY-PASS CHECKS IF FATAL ERROR 


B13 
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043676 104410 TRAP CSESCAPE 
043700 000074 «WORD 10000$-. 

3191 043702 005737 002222' TST INTRECV sD0ID AN INTERRUPT OCCUR ? 

3192 043706 001004 BNE 228 sBRANCH IF YES 

3196 043710 ERRHRD ERRNO, TLININT,PKTSSR 
043710 104456 TRAP CSERHRD 
043712 002126 » WORD 1110 
043714 045154’ ~ WORD TLLININT 
043716 011656’ » WORD PKTSSR 

3197 043720 016501 000002 228: MOV TSSRC(RS),R1L sGET THE CONTENTS OF TSSR 

3198 043724 012702 100206 MOV @SC!SSR!TSREJ,R2 sEXPECTED CONTENTS OF TSSR 

3199 043730 032701 000100 BIT OOFL .R1 sIS OFF-LINE BIT SET ? 

3200 043734 001402 BEQ 25% sBRANCH IF NOT OFF-LINE 

3201 043736 052702 000100 BIS @OFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

3202 043742 020201 258: CMP R2,R1 s00ES EXPECTED MATCH RECEIVED ? 

3203 043744 001404 BEQ 308 sOKAY IF MATCH 

3207 043746 ERRHRD ERRNO, TILOREJ,PKTSSR sCOMMAND NOT REJECTED 
043746 104456 AP CSERHRD 
043750 002127 WORD 1111 
043752 044632’ WORD T1L12QREV 
043754 011656' WORD PKTSSR 

3208 043756 30%: 

3209 043756 004737 010724’ 358: JSR PC,.CKRAM ;CHECK RAM TO MEMORY 

3210 043762 103405 6cs 595 3RAM OK GO ON 

3214 043764 ERRHRD ERRNO,PKTRAM,RAMERR 3s THEY DON'T MATCH 
043764 104456 TRAP CSERHRD 
043766 002130 WORD 112 
043770 004737' WORD PK TRAM 
043772 015320’ - WORD RAMERR 

3215 043774 ENODSEG p<eeeececcecccee END SEGMENi 6466600000008 
043774 100008: 

5016 043774 104405 TRAP CSESEG 

3217 043776 59%: ENOSUB ENANANNANNANNN END SUBTEST \ANNANANAANNN 
043776 10104; 
043776 104403 TRAP CsESuB 

3218 

3219 z° 

3220 : 

asae sTEST 11, SUBTEST 3 

3 
ace ;CHECK THAT THE GET STATUS COMMAND IS ACCEPTED 
a 

3225 :- 

3226 

3227 044000 BGNSUB s//4//1////1/7/7/ BEGIN SUBTEST 444744//74/74/7 
044000 p> eet 

OR eter nate TRAP CSBSUB 

3229 044002 SETPRI O@PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
044002 012700 000000 MOV OPRIOO RO 
044006 104441 TRAP CsSPRI 

3230 044010 BGNSEG y>>>>>>>>>>>> BEGIN SEGIENT >>> >>>>>>>>> 
044010 104404 Rap CSBSEG 

3231 044012 004737 015604' JSR PC,SOF INIT 300 SOFT INIT OF CONTROLLER 

3232 044016 103405 6CS 3$ ;BR If SOFT INIT = OK 


3236 044020 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
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3237 


044022 
04 


044530’ 
010472' 


045334' 
044460' 


002222" 
000000 
016146' 


002222' 


010724’ 


3$; 


4$: 


5$: 


10$; 


153: 


228: 


25%: 


30$: 
3538: 


ERRDF 


Lis 


ERRNO, SF IERR, SF IMSG 


@T11PK2,R4 
PC,WRICHR 


ae 
ERRNO, WRTMSG, SF IMSG 


PC, TILREST 
@TLIPACKET ,R4 


INTRECV 

R4, TSOBCRS) 
PC,.CHKTSSR 
15% 


RO,R1 
ERRNO, T11SR2,PKTSSR 


SEG 
INTRECV 


22% 
ERRNO, TLININT ,PKTSSR 


TSSRCRS),R1 


30% 
ERRNO, T113REJ,PKTSSR 


PC,CKRAM 
598 
ERRNO ,PKTRAM,RAMERR 


sDEVICE FATAL ERROR DURING INIT 
TRAP 


“WORD 
~ WORD 
{WRITE CHARACTERISTICS PACKET 
;ISSUE WRITE CHARACTERISTICS 


s6R, IF COMMAND ISSUED OK 
sWRITE CHARACTERISTISC FAILED 


sSET UP PACKET FOR COMMAND 


SEQ 158 


CSEROF 
1113 
SF IERR 
SF IMSG 


CSERHRD 
1114 
WRTMSG 
SF IMSG 


sGET THE ADDRESS OF COMMAND PACKET 


sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

36R IF CARRY SET (O00 RETURN) 
sSAVE CONTENTS OF TS)A 


sDEVICE FATAL SSR ——, ia SET 


TWORO 
~ WORD 


. WORD 
sLOOP ON ERROR, IF FLAG SET 


« TRAP 
:BY-PASS SUBTEST IF FATAL ERROR 
TRAP 


;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 

sCOMMAND NOT ACCEPTED 


TRAP 
. WORD 
. WORD 
. WORD 
sCHECK RAM TO MEMORY 
sRAM OK GO ON 
s THEY DON’T MATCH 
TRAP 


CsCLP1 


CSESCAPE 
10000$ -. 


CSERHRD 
1116 
TLININT 
PKTSSR 


CSERHRD 


PKTSSR 


CSERHRD 


FELT is TRhod AlProllEBAWIRBES 07 FEB. 4 10258 


D135 


SEQ 159 
WORD 1118 
«WORD PKTRAM 
WORD RAMERR 
yeeeececceecece END SEGMENT <cceeeeceecce 
10000$: 
TRAP CSESEG 
ENNNNNNNNNNNNS END SUBTEST \A\NANANANAANA 
L10105: 
TRAP CsESUB 


34////1/1///7//7/ BEGIN SUBTEST /S//////////7 
711.4: 


TRAP CsB8SUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV ePRIOO,.RO 

TRAP CS$SPRI 


3>>>>>>>>>%>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 

3:00 SOFT INIT OF CONTROLLER 

36R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR Ss 


CSERDF 

»WORD 1119 
-WORD SFIERR 
«WORD SFIMSG 

sWRITE CHARACTERISTICS PACKET 

sISSUE WRITE CHARACTERISTICS 

;8R, IF COMMAND ISSUED OK 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 1120 
-WORD WRTMSG 
-WORD SFIMSG 


sSET UP PACKET FOR COMMAND 
sGET THE ADDRESS OF COMMAND PACKET 


;CLEAR INTERRUPT RECEIVED FLAG 
sSET TO NON-ZERO MODE 

sSET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

3BR IF CARRY SET (GOOD RETURN) 


044206 002136 
044210 004737’ 
044212 015320' 
3285 044214 ENDSEG 
044214 
044214 104405 
3286 
3287 
3288 044216 598; ENDSUB 
044216 
044216 104403 
3289 
3290 3¢ 
3291 3 
| sTEST 11, SUBTEST 4 
3 
3294 ;SUBTEST TO VERIFY THAT A GET STATUS COMMAND IS 
hey sREJECTED IF A NON-ZERO COMMAND MODE FIELO IS USED 
3 
3297 3- 
3298 
3299 044220 BGNSUB 
044220 
044220 104402 
3300 
3301 044222 SETPRI #PRIOO 
044222 012700 000000 
044226 104441 
3302 044230 BGNSEG 
044230 104404 
3303 044232 004737 015604’ JSR PC,SOF INIT 
3304 044236 103405 BCS 3$ 
3308 044240 010001 MOV RO,R1 
3309 044242 ERRDF ERRNO, SF IERR, SF IMSG 
044242 104455 
044244 002137 
044246 003644’ 
044250 011644’ 
3310 044252 3$: 
3311 044252 012704 044530’ MOV OTLIPK2,R4 
3312 044256 004737 010472' JSR PC,WRICHR 
3313 044262 103404 6cs 4$ 
3317 044264 ERRHRD ERRNO,WRTMSG, SF IMSG 
044264 104456 
044266 002140 
044270 5050 ' 
044272 011644' 
3318 044274 4$: 
3319 044274 004737 045334' JSR PC, TLIREST 
3320 044300 012704 044460' MOV @TLIPACKET,R4 
3321 044304 5$: 
3322 044304 005037 002222’ 108: CLR INTRECV 
3323 044310 052714 007000 BIS #007000, (R4) 
3324 044314 010465 000000 MOV R4,TSOBC(RS) 
3325 044320 004737 016146' JSR PC,CHKTSSR 
3326 044324 103405 6cSs 158 
3327 044326 010001 MOV RO,R1 


sSAVE CONTENTS OF TSSR 
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TEST 
3331 


044330 
044330 
044332 
044334 
044336 
044340 
044340 
044342 
044342 
044344 
044346 


044450 
044460 
044460 


11: NON-TAPE MOTION COMMANDS 


EAS 
ERRNO, T11SR2,PKTSSR 
SUB 
INTRECV 


22% 
ERRNO, TLININT,PKTSSR 


TSSRCRS),R1 
@SC!SSR!TSREU,R2 
OOFL ,R1 


30$ 
ERRNO, T114REJ,PKTSSR 


PC,.CKRAM 
9% 
ERRNO, PKTRAM,RAMERR 


Ts! 


3° 
sLOCAL STORAGE FOR THIS TEST 
dis 


ERROF 
104455 
002141 
045100’ 
011656' 
15$: CKLOOP 
104406 
ESCAPE 
104410 
000076 
005737 002222' TST 
001004 BNE 
ERRHRD 
104456 
002142 
045154’ 
011656’ 
016501 000002 223: MOV 
012702 100206 MOV 
032701 000100 BIT 
001402 BEQ 
052702 000100 BIS 
020201 258: CMP 
001404 BEQ 
ERRHRD 
104456 
002143 
044743' 
011656' 
30$: 
004737 010724' 35$: JSR 
103404 bcs 
EPRHRD 
104456 
002144 
004737' 
015320' 
59%: 
ENODSEG 
104405 
ENOSUB 
104403 
EXIT 
104432 
000772 
.BLK 
TLIPACKET: 
100204 . WORD 


10-<, -TSV2E7> 
100204 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


. WORD 
. WORD 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP 


sBY-PASS SUBTEST IF FATAL ERROR 
TRAP 


. WORD 
sO0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF -LINE 

sSET OFF-LINE IN EXPECTED DATA 


sD0ES EXPECTED MATCH RECEIVED ? 


sOKAY IF MATCH 
sCOMMAND NOT REJECTED 


:CHECK RAM TO MEMORY 
sRAM OK GO ON 
3 THEY DON’T MATCH 


CsCLP1 


CSESCAPE 
L10106-. 


CSERHRD 
1122 
TLININT 
PKTSSR 


CSERHRD 


PKTSSR 


CSERHRD 
1124 

PK TRAM 
RAMERR 


gee eee? END SEGMENT «eecceeeecce 
10000$: 


* Trap 


CSESEG 


SNNNNNNANNNNAN END SUBTEST \ANNANNANAANA 


L10106: 
TRAP 
sALL DONE THIS TEST 
TRAP 
. WORD 


sCOMMAND PACKET FOR TEST 


CsESUB 


CSExIT 
L10102-. 


sWRITE CHAR COMMAND, WITH IE, ACK 
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044462 
044464 


5 044466 


044470 
044470 
044472 
044474 
044476 


044502 


045334 
045334 
045340 
045344 


044470' 
000000 
000010 


044502’ 
000000 
000016 
000000 


100204 
044540' 
000000 


000010 


044552’ 
000000 


000016 
000000 000000 


111 116 
111 116 
107 105 
107 105 
103 157 
103 157 
105 170 
111 156 
116 157 


012701 044460' 


012721 100213 


F1s 


FEB-84 10:58 


. WORD _— 


. WORD 

«WORD 8. 
TLLIDATA: 

-WORD TLIBFR 

-WORD 0O 

-WORD 14. 


-WORD 0,0 
TLIBFR: .BLKW 8. 


-BLKB 10-<. -TSV2E7> 


T1L1IPK2: 
. WORD 100204 
. WORD TLIDTA 
-WORD O 
-WORD 8. 
TLIDTA: 
. WORD T118F2 
-WORD O 
. WORD 14, 


-WORD 0,0 
T116F2: .BLKW 8. 


3° 
sLOCAL TEXT MESSAGES FOR TEST 
oe 


SEQ 161 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


;COMMAND PACKET FOR TEST 

sWRITE CHAR COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


;LENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


TLINBA: .ASCIZ ‘INITIALIZE Command Not Accepted’ 


TLIOREV: -ASCIZ ‘INITIALIZE Not Rejected With Non-Zero Mode Field’ 
TLI3REU: .ASCIZ ‘GET STATUS Not Accepted’ 
TL14REU: -ASCIZ ‘GET STATUS Not Rejected With Non-Zero Mode Field’ 


T11SSR: .ASCIZ ‘Contents of TSSR emasenel After INITIALIZE’ 
T11SR2: .ASCIZ ‘Contents of TSSR Incorrect After GET STATUS’ 


TLININT: -ASCIZ ‘Expected Interrupt Not Received On INITIALIZE’ 
TL1LTSBA: -ASCIZ ‘Incorrect TSBA Address After INITIALIZE’ 
TSTL1I0: —_— -ASCIZ ‘Non-Tape Motion Commands’ 

EV 


3° 


i 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


s INITIALIZE COMMAND 
; 
“- 


TLIREST: 
SAVREG 
MOV OTLIPACKET,R1 
MOV #100213,(R1)-> 


;SAVE THE REGISTERS 
sSTART OF THE PACKET 
sINITIALIZE WITH ACK, IE 


G13 
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012701 


044502’ 


044460: 
100217 


044502' 


CLR ¢ . 
CLR (R1)+ 
CLR C(R1)> 
CLR (R1)> 
CLR (R1)> 
CLR (R1)+ 
CLR (R1)> 
CLR (R1) 
CLR T11BFR 
RTS PC 


3¢ 


sADORESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;CLEAR 1ST LOC IN MESSAGE BUFFER 
;RE TURN 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sGET STATUS COMMAND 
; 


TLIRT2: 
SAVREG 
MOV @TLIPACKET,R1 
MOV #100217,(R1)> 
CLR (R1)> 
CLR (R1)> 
CLR (R1)> 
CLR C(R1i)> 
CLR (R1)> 
CLR (R1)-> 
CLR (R1)-> 
CLR (R1) 
CLR T116FR 
RTS PC 
ENOTST 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sGET STATUS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
;RETURN 


L10102: 


TRAP 


SEQ 162 


CsETST 


H13 
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TEST 11: NON-TAPE MOTTON Re MANOS 
. .TITLE TSV6 - PARAMETER CODING 
12 
18 
19 045442 BGNMOD TSV6 
045442 TSV6:: 
oe 
1 
+s -SBTTL HARDWARE PARAMETER CODING SECTION 
2 
24 ze 
25 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
26 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
e7 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
28 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
29 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
se 3; WITH THE OPERATOR. 
1 ¥< 
32 045442 BGNHRD 
045442 000010 «WORD L10107-L$HARD/2 
ss 045444 L$HARD: : 
34 045444 GPRMA HPM1,0,0,160010,177776, YES ;GET TSBA/TSOB REGISTER ADDRESS. 
045444 000031 - WORD TSCODE 
045446 045464' -WORD HPM1 
045450 160010 WORD TSLOLIM 
045452 177776 . WORD TSHILIM 
35 045454 GPRMA HPM2,2.0.0.776, YES ;GET VECTOR ADDRESS. 
045454 001031 . WORD TSCODE 
045456 045520‘ . WORD HPM2 
045460 000000 . WORD TSLOLIM 
045462 000776 . WORD TSHILIM 
36 sGPRMO HPM3,4,0,340,0,7,YES sGET INTERRUPT PRIORITY. 
37 045464 ENDHRD 
EVEN 
045464 L10107: 
38 045464 104 105 126 HPM1: -ASCIZ ‘DEVICE ADDRESS (TSBA/TSDB) ' 
39 045520 111 116 124 HPMe: -ASCIZ ‘INTERRUPT VECTOR . 
40 045544 111 116 124 HPM3: -ASCIZ ‘INTERRUPT PRIORITY . 
. EVEN 
+ -SBTTL SOFTWARE PARAMETER CODING SECTION 
45 zee 
46 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
47 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
48 3; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
49 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
50 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
+t ; WITH THE OPERATOR, 
3-- 
53 045574 BGNSFT 
045574 000003 »-WORD L10110-L$SOFT/2 
045576 L$SOFT:: 
54 3 GPRML SPM1,0,-1, YES : GET TRANSPORT TEST FLAG. 
55 045576 GPRML SPM4,2,-1, YES ; GET ITERATION CONTROL. 


045576 001130 -WORD TSCODE 


T13 


SPM4 

<i 
SPM6,.4,0,7777,0,7777, YES 
SPM7,6,0,7777,0,7777, YES 


; GET LOCAL ERROR LIMIT 
; GET GLOBAL ERROR LIMIT 


"ENABLE TRANSPORT TESTS ° 
‘INHIBIT ITERATIONS ; 
‘PER TEST ERROR LIMIT ‘' 
‘PER UNIT ERROR LIMIT . 
PATCH AREA 


FINALLY A GENEROUS PATCH AREA. 
AND AN ADJ'UTMENT TO ACCOUNT FOR THE 


"LASTAD BIT7” HACK 


DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 


32. 
1. 
_ .€377 


sSET LAST USED ADORESS. 


HARD CODED P-TABLE 


DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 


1 


.¢) 
L10113-./2-1 


TSV6 - PARAMETER CODING MACRO M1113 07-FEB-84 10:58 
SOFTWARE PARAMETER CODING SECTION 
045600 045634’ . WORD 
045602 177777 . WORD 
56 3 GPRMD 
57 3 GP’ 
58 045604 * — ENDSFT 
045604 L10110: 
59 
60 
61 045604 105 116 101 SPM1: .ASCIZ 
62 045634 111 116 110 SPM4; ASCIZ 
63 3: SPM6 ASCIZ 
64 3SPM?: ASCIZ 
65 SBTTL 
66 
67 Hy 
68 3 
69 ; 
70 3 
71 ; 
72 Hy 
73 
Lo 045664 PATCH: 
76 Fy .BLKW 
44 045664 .BLKW 
79 3 a 
80 : -2.!37 
81 .ENOC 
82 045666 LASTAD 
.EVEN 
045666 000000 . WORD 
045670 000000 . WORD 
045672 LSLAST:: 
83 045672 ENOMOD 
84 .SBTTL 
85 pee 
86 : 
87 ae 
88 045672 BGNSE TUP 
89 045672 BGNP TAB 
045672 000000 . WORD 
045674 000003 . WORD 
045676 L10111: 
90 045676 172522 : 
91 045700 000224 . WORD 
92 045702 000240 wORD 
93 045704 ENDPTAB 
045704 L10113: 
= 045704 ENDSE TUP 
96 000001 END 


SEQ 164 


TSV6_- PARAMETER CODING MACRO M1113 07-FEB-84 10:58 


SYMBOL TABLE 

ADDSSR 011736RG 002 C$AU_ = 000052 DEVORO 023146R 002 FRESIZ 003124RG 002 INTFLA 015755R 
ADR = 900020 G CSAUTO= 000061 DEVNRD 023065R 002 FUSI 004111R 002 INTMAS 015754R 
AMBTSS 006445R 002 CSBRK = 000022 DEVNXR 023003R 002 FSAU_ = 000015 INTR 016026RG 
ASSEMB= 000010 CSBSEG= 000004 DEVONL 022735R 002 FSAUTO= 000020 INTREC 002222RG 
A1716 = 000003 CsBSUB= 000002 DEVSUM 022676R 002 FS$BGN = 000040 INTVEC 015756R 
BADDAT 003154RG 002 CSCEFG= 000045 OFPTBL 002154RG 002 FSCLEA= 000007 INTX 004272R 
BADSSR 015510RG 002 CSCLCK= 000062 DIAGMC= 000000 FsDU = 000016 INVERT 020734RG 
BOVPCR= 177520 G CSCLEA= 000012 DICEA = 000001 FSEND = 000041 IOKCKI= 000200 
BENBSW 002226RG 002 CSCLOS= 000035 OSBINT 016014R 002 FSHARD= 000004 IOKSTP= 000001 
BIE = 040000 CSCLP1= 000006 DUADI2 004635R 002 FsHW = 000013 IPRI 002210RG 
BITO = 000001 G CsCVEC= 000036 DUFLG 003110RG 002 FSINIT* 000006 ISR * 000100 G 
BITOO = 000001 G CS$DCLN= 000044 DUMMY 003060R 002 FSJMP = 000050 IVEC 002206RG 
BITO1L = 000002 G CsD00U= 000051 EF .CON= 000036 G FSMOD = IXE * 004000 G 
BITO2 = 000004 G CSDRPT= 000024 EF .NEW= 000035 G FSMSG = OOO011 IsAU_ = 000041 
BITOS = 000010 G CsdU_ = 000053 EF .PWR= 000034 G FSPROT= 000021 ISAUTO= 000041 
BITO4 = 000020 G CSEDIT= 0000035 EF .RES= 000037 G FSPWR = 000017 ISCLN = 000041 
BITOS = 000040 G CSERDF= 000055 EF .STA= OG FSRPT = 000012 IsOU = 000041 
BITO6 = 000100 G CSERHR= 000056 EMAXDU 016611R 002 FS$SEG = 000003 ISHRD = 000041 
BITO7 = 000200 G CSERRO= 000060 EN . F$SOFT= 000005 ISINIT= 000041 
BITO8 = 000400 G CSERSF= 000054 ENAINT 015762R 002 FSSRV = 000010 IsMOD = 000041 
BITO9 = 001000 G CSERSO= 000057 ENVIRN O20450R 002 F$SUB = 000002 IsMSG = 000041 
BIT1 = 000002 G CSESCA= 000010 EPRTSW 002176RG 002 F$SW = 000014 ISPROT= 000040 
BIT10 = 002000 G CSESEG= 000005 EPRT1 006170R 002 FSTEST= 1 ISPTAB= 000041 
BIT11 = 004000 G CSESUB= 000003 EPRT=  006170R 002 GDDAT 003156RG Q02 ISPWR = 000041 
BIT12 = 010000 G CSETST= 000001 CALn 911543R 002 GERRMA 002172RG 002 ISRPT = 000041 
BIT13 = 020000 G CSEXIT= 000032 ERRHI 002234RG 002 GETPAT 020014RG 002 ISSEG = 000041 
BIT14 = 040000 G CSGETB= 000026 ERRK 016570R 002 GETSEL 020076RG 002 ISSETU= 000041 
BIT1S = 100000 G CSGETW= 000027 ERRLO 002 002 GSCNTO= 000200 IsSFT = 000041 
BIT2 = 000004 G CSGMAN= 000043 ERRNO = 002144 G$DELM= 000372 IsSRV = 000041 
BITS = 000010 G CSGPHR= 000042 ERRVEC= GSDISP= 000003 I$SuB = 000041 
BIT& = 000020 G C$GPLO= 000030 ERTABE 003374R 002 GSEXCP= 000400 IsTST = 000041 
BITS = 000040 G CSGPRI= 000040 ERTABL 003174R 002 GSHILI= 000002 J$JMP = 000167 
BIT6 = 000100 G CSINIT= 000011 ESUM 016572R 002 GSLOLT= 000001 KIPARO= 172340 
BIT7 = 000200 G CSIN.P= 000020 Ev. _s G$NO = 000000 KIPAR1= 172342 
BIT8 = 000400 G CSMANI= 000050 EXBCNT= 000010 GSOFFS= 000400 KIPAR2= 172344 
BIT9 = 001000 G C$MEM = 000031 EXPBRE 015312RG 002 GSOFSI= 000376 KIPAR3= 172346 
OE = 00 G CSMSG = 000023 EXPD 002230RG 002 G$PRMA= 000001 KIPAR4= 172350 
BRINIT 004451R 002 CSOPEN= 000034 EXPGOT 004525R 002 G$PRMD= 000002 KIPARS= 172352 
BSELO = CSPNTB= 000014 EXPGT2 004561R 002 G$PRML= KIPAR6= 172354 
BSEL1 = 00000 CSPNTF= 000017 EXPMSG 0023520RG 002 GS$RADA= 000140 KIPAR7= 172356 
CHKAMB 015654R 002 CSPNTS= 000016 EXPREC 015304RG 002 GS$RADB= KIPORO= 172300 
CHKMAN 020320RG 002 CSPNTX= 000015 EXTA 005602R 002 G$RADD= 000040 KIPOR1= 172302 
CHKTSS 016146R 002 C$QIO = 000377 EXTEND OOS600R 002 GSRADL= 000120 KIPDR2= 172304 
CKDROP 017014R 002 C$RDBU= 000007 EXTFEA 002224RG 002 G$RADO= 000020 KIPOR3= 172306 
CKEMAX 016714R 002 CSREFG= 000047 ESEND = 002100 G$xFER= KIPOR4= 172310 
CKMSG 011170RG 002 CSRESE= 000033 ESLOAD= 000035 GSYES = 000010 KIPORS= 172312 
CKMSG2 011310RG 002 CS$REVI= 000003 FATERR= HIADOR= 001400 KIPOR6= 172314 
CKRAM 010724RG 002 CSRFLA= 000021 FATFLG O002220RG 002 HOE = 100000 KIPOR7= 172316 
CKRAM2 011034RG 002 CSRPT = 000025 FERCM 011532R 002 HPM1 045464R 002 KTENAB 003132RG 
CMDPKT 021010RG 002 CSSEFG= 000046 FIFEXP 012000RG 002 HPM2 045520R 002 KTFLG 0031350RG 
CMPMEM O1 002 C$SPRI= 000041 FIFIMS 012052R 002 HPM3 045544R 002 KTINIT 020536R 
COMFIG 017062R 002 C$SVEC= 000037 FIF2MS 012121R 002 IBE = 010000 G KTOFF 017106R 
COUNT 002306RG 002 CS$TPRI= 000013 FILLME 017234R 002 IDU) = 000040 G KTON 017070R 
CSRADD 002204RG 002 DATA 002310RG 002 FNOINT 004207R 002 IER = 020000 G LERRMA 002170RG 
CTAB 003162RG 002 DATASC 020052R 002 FORCER 002174RG 002 IFAULT 004250R 002 LISTAL= 000001 
CTABE 003174RG 002 DEBUGM 011442R 002 FREE 003122RG 002 INCERK 016656R 002 LOE = 040000 G 


CTABM 003162RG 002 DEVCNT 002216RG 002 FREEHI 003126R oc2 INTCPC 015760R 002 LOOPCN 002214RG 


TSV6 - PARAMETER CODING 
SYMBOL TABLE 

LOOPCO 012736R 002 
LOOPFL 003160RG 002 
LOT * 000010 G 

L$ACP 002110RG 002 
LSAPT 0020 002 
LSAU 022122RG 002 
LSAUT  002070RG 002 
LSAUTO 022326RG 002 
LsCCP 002106RG 002 
LSCLEA O022406RG 002 
Ls$co 002032RG 002 
LSDEPO 002011RG 002 
LS$DESC 003406RG 002 
LSDESP 002076RG 002 
L$DEVP O02060RG 002 
LSDISP 002124RG 002 
L$DLY 002116RG 002 
LSOTP 002040RG 002 
LS$DTYP 002034RG 002 
L$DduU 022220RG 002 
L$DUT 002072RG 002 
L$DVTY O003400RG 002 
LSeEF 002052RG 002 
LSENVI 002044RG 002 
LSETP 002102RG 002 
LSEXP1 002046RG 002 
LSEXP4 002064RG 002 
LSEXPS 00 002 
LSHARD 045444RG 002 
LSHIME 002120RG 002 
LSHPCP 002016RG 002 
LSHPTP 002022RG 002 
L$Hw 002154RG 002 
LS$ICP 002104RG 002 
L$INIT 021326RG 002 
L$LADP 002026RG 002 
LS$LAST 045672RG 002 
L$LOAD 002100PRG 002 
L$LUN 002074RG 002 
LSMREV OO02050RG 002 
LSNAME O02000RG 002 
LSPRIO 002042RG 002 
LS$PROT 021316RG 002 
L$PRT 002112RG 002 
L$REPP O002062RG 002 
L$REV 00201 002 
L$RPT 022434RG 002 
L$SOFT 045576RG 002 
L$SPC  O002056RG 002 
L$SPCP 002020RG 002 
L$SPTP 002024RG 002 
L$STA 002030RG 002 
L$Sw 002164RG 002 
L$TEST 002114RG 002 
LS$TIML 002014RG 002 
LS$UNIT 002012RG 002 
L10000 002162R 002 


MACRO M1113 07-FEB-84 10:58 


002174R 
005576R 
011654R 
011672R 


036334R 


L10073 


003140RG 
003136RG 


PRIO3 = 


021222R 
003732R 


000100 G 
000140 G 


002 
002 


2 
E 


00S5200R 


SEQ 166 


TSV6 - PAR 
SYMBOL TAB 


AMETER CODING 
LE 


002 


MACRO M1115 07-FEB-84 10:58 


TST6ID 


030523R 


TST7IO 
TST8ID 


T$$SEG= 


035017R 


002 


010110 
010026 


003142RG 


003144RG 
024134RG 


034150R 


TSV6_- PARAMETER CODING 
SYMBOL TABLE 


TENVCK 034637R 
TSPACK 034540R 
T8SSR 0347350R 
T8VCK O034602R 
19 035036RG 
T9BFR 037032R 
T9DATA 037020R 
T9INT 037707R 
T9LOOP O035060R 
TONBA 037066R 
TONINT 037616R 
TOPACK 037010R 
TOREST 040106R 
T9SSR 037527R 
T9TSBA 037776R 
T9.1 O3S5060R 
T9.2 035326R 
T9.3 035540R 
19.4 035744R 
79.5 036132R 
179.6 036336R 
19.7 036570R 
- ABS. 000000 
000000 


ABS 045704 
ERRORS DETECTED: 


VIRTUAL MEMORY USED: 
20614 WORDS ( 


DYNAMIC MEMORY: 


ELAPSED TIME: 00:36:10 
CZTSAA,CZTSAA. SEQ/ -SP=SVC/ML, TSV1A, TSV22A, TSV3B, TSV4, TSVSA, TSV6 


d 


MACRO M1113 07-FEB-84 10:58 


79 PAGES) 


002 T92DAT 037052R 002 
002 T92DON* 037066R 002 
002 T92REJ 037141R 002 
002 T93SREJ 037240R 002 
002 T94REJ 037335R 002 
002 TOSREJ 037431R 002 
002 UAM = 000200 G 
002 UNITN 002200RG 002 
002 UNREC = 
002 USI 004115R 002 
002 WAITF 016060RG 002 
002 WC.IFA= 000200 
002 WC.IFE= 000002 
002 WC.IGO= 000001 
002 WC.IRE= 000010 
002 WC.IRW= 000004 
002 WC.IOT= 000100 
002 WC.I1T= 000040 
002 WC.ISR= 000020 
002 WF.IED= 000010 
002 WF.IER= 000004 
002 WF.IHI= 000200 
000 
001 
002 

28264 WORDS ( 111 PAGES) 


XSOILA= 


M13 


xSOILC= 
XSOLET*= 
XSOMOT = 
XSONEF = 
XSOONL = 
XSOPED= 
XSORLL = 
XSORLS= 
XSOTMK= 
XSOVCK= 
XSOWLE = 


XSOWLK= 000004 


XXCOMM 

X$ALWA= 
X$FALS= 
X$SOFFS= 
X$TRUE®= 
X1.COR= 
X1.0LT= 
X1.MBZ= 
X1.R6P= 
X1.SPA= 


017375 
000400 
040000 


SEQ 168 


